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provides an overview cf the methodology utilized in creating 
the system, along with the problems associated with a 
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for the creation of the system and a discussion of the 
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database environment. 
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I. INTROD UCTI ON 

Current economic trends have brought about an increased 
awareness cf the need for productivity gains in the work- 
place. Like all facet.s of business, government is finding 
increased pressures tc reduce expenditures and still provide 
service to the people. To meet the challenges of reducing 
costs and maintaining service levels, government managers 
are looking toward office automation and computerization tc 
increase individual productivity. The Navy Fleet Material 
Support Cffice (FMSC) , like most Government Agencies, is 
doing its part to improve productivity. 

The Defective Material Section of FMSO (Code 91423) is 
designated as the overall monitor for the quality deficiency 
management information reporting system. A Thesis entitled 
A System Analysis and De siqn For Uodat ing the Int er na l 
Tracking of the Quality Deficiency Reporting System at the 
Navv * s Fleet Material Supp o rt O ffic e by Michael D. Carriger 
recommended the development of a prototype network of inex- 
pensive microcomputers and the creation of a Central 
Database System. This prototype system will demonstrate the 
feasibility of automating the QDR Processing Procedures, and 
will allow the evaluation of processing with automated tech- 
niques. Additionally, the prototype will provide the basic 
design for future CDR Systems and its interaction with 
users . [Ref. 1 ] 

Current microcomputer technology has allowed very 
powerful systems to be created at relatively low costs. 
Microprocessors with ever 512,000 characters of memory can 
process over 500,000 instructions per second. Secondary 
storage units can access over 35 million characters of data 
at the rate of 5 million bits per second. Relational 
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II. MJTHCDOLOGY 

The development of the Quality Deficiency Reporting 
(QDR) System was based on modern software engineering and 
design principles. Data flow diagrams, structure charts, 
and a high level programming language aided in the creation 
of the system. Using top-down design to provide a logical 
basis for development, the software creation involved: 1) 

studying and understanding the QDR process, 2) identifying 
at least one method cf solving the problem, 3) creating data 
flow diagrams tc shew the gross data transformations, 4) 
using the data flow diagrams to construct a structure chart, 
and 5) describing each abstraction used in the solution in a 
manner that lends itself to eventual coding in a high level 
language. [Ref. 2] 

The initial study of the QDR System was based on Michael 
D. Carriger's thesis work. This provided much of the back- 
ground information that was necessary to formulate a 
possible solution. Eased on the operational environment and 
the users' level of computer familiarity, it was decided 
that a menu driven system be created. This would provide an 
easy to understand interface for the unfamiliar user. Data 
flow diagrams were generated to identify the transformation 
of data frem input to output. This provided a pictorial 
representation of the data used by the QDR System and estab- 
lished a means of identifying the changes that took place 
during the life cf a QDR Case (See figure 2.1 and 2.2). 

The data flow diagrams provided the basis for creating 
the system's hierarchical structure. By reviewing the basic 
transformations performed by the system, it became apparent 
that there are three main activities necessary for main- 
taining the Central Database. These basic activities 
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Basic QDR Flow 





Initial QDR Receipt 



Figure 2.1 



Basic QDR Flow and Initial QDR Receipt. 



r 







QDR Update and Close 




Figure 2.2 



Qdr Update and Close. 



prompted the creation of the Open Case, Update 
Case modules.. All ether functions associated 



, and Close 
with the CD R 
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System are support modules for presenting the Database 
information to the end user, maintaining support Database 
Piles, and generating management information (See figures 
2.3 and 2.4) . 

The QDR System was implemented using the command 
language for dBASE II, a Relational Database Product. This 
command language is a high level language that supports 
block structured development. It is an interpretive 

language that must be re-evaluated through each pass of the 
program execution. To ensure program clarity, the programs 
utilized meaningful names to identify variables and make the 
flow of information more apparent to the reader. 

Information hiding was utilized to reduce the amount of 
unnecessary information handled by each program. Required 
information is passed between programs as the data is needed 
for processing (See Appendix A for a complete listing of 
Passed Variables). Information hiding also conceals the 

processing algorithms used within a program. When inter- 
facing programs, the programmer only needs to knew what 

information passes between programs and not hew the informa- 
tion is treated internally. The use of information hiding 
techniques reduces the complexify of systems development by 
allowing the programs to be developed independently based on 
interfacing requirements only. [Ref. 3] Another mechanism 
to simplify the programs is tc include comment lines to make 
them more readable and understandable to maintenance 
personnel. 

As each program was created, it was tested tc ensure 
that it accurately performed the function for which it was 
designed and did not contain errors. As individual programs 
were tested, they were combined with other tested units tc 
ensure compatibility between the various system segments. 
This integration testing was performed to ensure that the 
individual programs worked in conjunction with ether 
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Figure 2.3 User's Sysrem Hierarchy. 
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Supervisor's System Hierarchy. 

1 4 



• Figure 2 .4 





programs and modules. As errors were detected in programs 
and modules, these bugs were corrected and then retesting 
was performed for both individual and integration tests. 
All of the initial tests were performed in a single user 
environment to reduce some of the system complexity. Once a 
program or module had completed both individual and integra- 
tion testing, these units were then tested in the multi-user 
environment. Other aspects of the software development are 
discussed in more depth later. 
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III. SYSTEM DEVELOPMENT 



The development of the QDR System considered many 
aspects cf computer utilization. The system was designed as 
an integrated package of hardware and software that was to 
he utilized as a management information tool. To produce 
the desired results, both hardware selection and software 
development requirements were made considering the utiliza- 
tion of the system and the target group of system operators. 
Such things as user interface, the multi-user environment, 
security, system cost, and the availablity of system compo- 
nents were integrated in the methodology cf developing the 
QDR Sysrem. 

A. SOFTWARE 

The original QDR software design centered around a data 
base consisting of 8,000 - 10,000 records in the Open File 
and 16,000 - 20,000 records in ~he Closed File. Each of 

these records contained rhirty data fields and required 275 
characters of data. Headquarters level changes to QDR 
processing procedures expanded the scope of the data files 
considerably. New data requirements in support cf the 
Product Deficiency Reporting System and Evaluation Program 
(PDREP) increased the files to fifty four data elements 
requiring ever 600 characters of data per QDR Case. (See 
Appendix B for a complete list of Database structures and 
Appendix C for the Data Element Definitions.) To accomodate 
these additional data items, the case records had to be 

split into two parts. This was necessary because cf a 
restriction in the Database Management Software used for the 
system. The current DBMS allowed a maximum of thirty two 
data elements per database file. 
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Tbe sccpe of the changes mentioned above required a 
total redesign of the QDR System. Up to that point, a 
substantial amount of design work and actual programming and 
testing had been completed. although many of the "lessens 
learned" during the initial design could be applied to rhe 
redesign, and many cf the initial algorithms could be modi- 
fied and reused, the redevelopment effort required a signif- 
icant amount of time and effort. All user interface 
programs had to be redesigned and, in many cases, repro- 
grammed to accomodate the new data elements and provide a 
meaningful interface. The change in scope drastically 
reduced the time available for complete testing, documenta- 
tion and implementation thus resulting in the prototype 
system being more capable, but requiring additional effort 
in the above areas. 

Much of the software development was aimed at providing 
a system that had an easy to understand user interface, 
could be used in a multi-user environment, provided a degree 
of security, and was maintainable. The following sections 
discuss each of these areas and provide some insight inro 
how these were achieved. Throughout rhis chapter, the terms 
module and program are used in terchangably . 

1 • User In t er f a ce With QDR System 

The interface between the user and the QDR System 
was a majer point of concentration to ensure the usefulness 
of the entire system. In order to allow for the lack of 
experience cf the analysts with automated tools and to avoid 
training costs for newly assigned personnel, the perception 
that the personal computers were really "QDR Machines" was 
utilized. The entire dialog of a user with the machine was 
centered around the functional aspects of the current 
working environment. A menu based system was utilized to 
guide t-he analysts through their case processing. At each 
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point where a choice could be made, the user was presented 
with an explicit message. If an invalid choice was made, 
the system would then provide a message indicating an errcr, 
and show the valid range cf choices available to the user at 
that particular point. If the user was familiar with the 
range of valid inputs and did net make an entry error, then 
the messages would net appear on the screen. This allowed 
for the more experienced user to avoid some of the screen 
prompting. The System was written such that each of the 
user ”QDR Machines” would automatically initialize itself 
and be in a state waiting for the user to logon (See figure 
3.1). 



ENTER YOUR USER I.D. 
XXXX 



Figure 3.1 Logon Prompt. 

This isolated the user from any of the underlying 
machine operating system and preparatory steps that are 
normally associated with putting today’s microcomputers into 
operation. The only function that the computer was avail- 
able for was the processing of QDR’s. When an analyst 
terminated operations for the day the terminal would again 
go into a state ready for another user to logon cr for the 
analyst to re-enter the system. 

The procedure for an analyst to enter the QDR System 
is demonstrated by the following selection of screen 
displays and choices that are available. The process begins 
with entry into the system at the beginning of the day. 
Each analyst has been assigned a user I.D. and a unique 
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password by the system supervisor. The system has earlier 
been brought up by the supervisor. The first screen 
presented prompts for the analyst to enter his unique access 
identification (See figure 3.1). If the access I.D. is not 
on file, or was entered incorrectly, a message comes on the 
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ACCESS I.D. 


NOT ON FILE 






PL EASE 


REENTER 
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Figure 3.2 Invalid I.D. Message. 

screen (See figure 3.2). A check is also made to determine 
if the user is currently logged onto another terminal in the 
system. If currently logged on, then access is denied and 
the following message will then be displayed (See figure 

i \ 



USER CURRENTLY LOGGED ON 
LOGON TERMINATED 




Figure 3.3 Currently Logged Message. 

3.3) . If the correct Access I.D. is entered then the system 
will prompt to enter the password. The password requires 



r ~ — ~ 

ENTER PASSWORD FOLLOWED BY <CR> 

i I 



Figure 3.4 Login Prompt. 
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exact upper/lover case entry (Figure opn4) . Three chances 
are given tc successfully enter the password and if unsuc- 
cessful, the console is locked out and may only be put back 
into operation by the system supervisor. A successful logon 
will be followed by a greeting to the QDR System, and the 
user will be presented with the main menu which contains all 
of his processing options (See figure 3.5). 
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WELCOME TO TEE QDR AUTOMATED TRACKING SYSTEM 

1 - Open New Record 

2 - Close Record 

3 - UDdate Record 

4 - Originate Letter 

5 - Report Generation 

6 - Query 

7 - Exit from the System 
Enter Your Choice 



I 



Figure 3. 5 Main Menu. 

From the main menu (figure 3.5) , the analyst has the 
option tc open a new case, update an existing case, clcse a 
case, originate a letter tc an item manager, get a listing 
cf all of his open cases in the QDR System, query the data- 
bases for information or to leave the QDR System. 

As an example of the process required to open a new 
QDR case, the following sequence shows the screens as 
presented to the analyst. In order to open a case, the 
analyst chooses a "1" frcm the main menu and then is 
presented with a screen where verification of desire is 
required. This allows the analyst to change his mind before 
beginning the process and to return to the main menu. A 
choice of "1" puts the user in the case opening process (See 
figure 3.6). 
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***** OPEN NEW CASE ***** 






THIS PROGRAM ENABLES YOU TO OPEN A 
NEW QDR CASE 




l _ 


1 - CONTINUE 

2 - RETURN TO MENU 


1 



Figure 3.6 Verification Message. 



The input screens presented to the user are designed 
with the source input document Standard Form 368 (SF 368) as 
the basis. Each of the items of information are captured 
from the numbered blocks of the SF 368. Where information is 
not identified on the form, yet is needed for the QDR case, 
input is reguested at the location where most often written 
in by the analyst or by the originating office. The purpose 
of this was to maximize the ease and fluidity of data entry 
by the analyst by considering the physical location of the 
data as well as the logical relationship cf the elements. 

The first entry required was the date the case was 
received by FMSO. A standard (MMDDYY) format for dates was 
utilized throughout the QDR programs, based upon user speci- 
fications (See figure 3.7). 

After entry cf the national srock number, a prompt 
to verify the initial data is put on the screen. This 
enables the analyst to ensure that the correct case will be 
created and will alleviate a later need to delete an invalid 
case from the database (See figure 3.8) . A choice of "2" 
allows the changing cf any initial data item before contin- 
uing to the second screen. 
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******** ENTER 


DATA FOR 


THE NEW 


CASE ##*****£ 






FROM 


SF 368 


* ** *** * * 




DATE RECEIVED 


EY FMSO 


MMDDYY 


• xxxxxx* 




CAT 






* X' 




COG 






• XX* 




NS N 






• XXX-XX-XXXX-XXXX’ 
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Figure 3.7 Initial Entry Screen. 






VERIFY ABOVE INFORMATION 
YOU MAY NOT CHANGE IT AFTER THIS 
WITHOUT STARTING OVER AGAIN 
1 - CONTINUE 2 - CHANGE 3 - EXIT 




Figure 3.8 Bailout /Change Option. 



The analyst is next presented with a full screen of 
data elements. The layout is such that the left side of the 

item labels contains the numbers relating to the SF 368 

blocks. This portion is blank where the element is net on 
the SF 368. Following each element label is a reverse video 
representation showing the correct length of the input item. 

The inputs which are optional are marked by a <0> (See 

figure 3.9) . The cursor moves from one data element to the 
next one as the analyst completes item entry. Any incorrect 
or cut cf bounds entry will result in a specific error 
message to the user showing the valid range of inputs. 
These error messages, when activated, appear on the lasr 
line cf the screen. The user can thus consistently lock to 
a single location for status or error messages from the QDR 
Syst e m. 
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SF368 
5 . NSN 

CATEGORY 

SMIC 

1 A. 01 C 

3. REPORT CONTROL 

4. EATE DISCOVERED MMDDYY 



6. NOMENCLATURE 

7. FSCM <0> 

8. MFG . PART NUMBER <0> 

9. SERIAL/LOT/BATCH <0> 

10. CONTRACT/PO <0> 

DOCUMENT NUMBER <0> 

1 1. ITEM N OR 0 <0> 

12. DATE M FG/REP/O VHL <0> 

13. CPN TIME AT FAILURE <0> 

14. GOV FURNISHED MATL <0> 

15. CTY: R EC/INS P/DE F/STK 

1 6a 1 . TYPE/M ODE I/SERIES <0> 

a2 . SERIAL NUMBER <0> 

b. NEXT HIGHER ASSY <0> 

SUB-ASSEMELY <0> 

******* CHECK PREVIOUS ENTRIES ******* 
CHOCSE 1- CONTINUE ENTRY 2- MAKE CORRECTIONS 



******* CHECK PREVIOUS ENTRIES ******* 
CHOCSE 1- CONTINUE ENTRY 2- MAKE CORRECTIONS 




Figure 3.9 First Screen of data. 

Consistent with the previous choices of leaving a 
particular screen, the analyst has the ability to make 
changes before proceeding. The next screen of data presents 
the same basic format to the user, and allows the input of 
the second half of the data elements. The NSN and category 
of the case being input are echoed at the top of the screen 
so the analyst may keep track of them for later reference. 
Data items are calculated by the program where possible and 
then inserted into the screen at the appropriate point. The 
extended price is one such item which was previously hand 
computed (See figure 3.10). 

Upon completion of data element, entry, the analyst 
may elect to change an item, post the case or exit the 
opening program and go back to the main menu without posting 
the case. This is critical at this time in the entry 
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01 

UNIT ERICE EXTENDED PRICE 

18. EST. CORRECTION COST <0> 

19. WARRANTY - Y/N/U 

20. WORK UNIT CODE <0> 

21. ACTICN/DISP OSITION -H/I/D/R/O <0> 

22. DET AIIS OF DISCREPANCY - FIRST 2 

LETTERS MUST EE DISCOVERY CODE 
?SA ACTTfN POTNT 

DEFECT VERIFICATION CODE - N/O/U/Y <0> 
DEFECT RESPONSIBILITY - C/N/S/U/X <C> 
9Q 

ORIGIN CODE 
30. TYPE COC 

TYPE DEFICIENCY 



1 - POST CASE 

2 - CHANGE DATA 

3 - EXIT WITHOUT POSTING 




Figure 3.10 Second Screen of Data. 

process. If a major mistake had been detected, it would be 
best to re-initiate the entry of a particular case instead 
of using the update program to change each item. This gives 
the analyst a final point where the process can start over 
without any interaction with the current cases. From the 
users point of view iz is comforting to know that an earlier 
misrake could be elininated prior to posting. On a busy 
network, the posting process may take a few minutes, thus 
the analyst is re-assured that "all is well" by a screen 
giving a status report on the process (See figure 3.11). 

After successful assignment of a case number and 
posting to the database, the case number is displayed on the 
screen (See figure 3.12). After noting the case number on 
the SF 368 for any future reference as needed, the analyst 
can clear the screen by pressing any key, and then will be 
tack at the point where he may input another new QDR case or 
return tc the main menu. 
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CASE 
* * * 


BEING POSTED TO DATA BASE 
PLEASE STANDBY 

DO NOT INTERRUPT *** 


1 

1 




Figure 3.11 


Response to POST Choice. 






CASE NUMEER OF THE NEW CASE 
•4001 92A • 

FRESS ANY KEY TO CONTINUE 


J 



Figure 3.12 Feedback to Analyst. 

The above seguence gives a flavor of the screens and 
messages that are present in the QDR System. Foremost 
consideration in design of screens and menus was the ease of 
use by the analysts. The screen design in a pattern which 
matched the source document as much as possible while 
considering additional input requirements led to a clean, 
easy to understand representation. The error messages were 
directed at identifying a specific range of acceptable input 
values and presenting these to the analysts for their 
review. Consistency of input parameters was maintained to 
enable the user to react to prompts and choice points thus 
requiring a minimum of additional thought and attention to 
the process of data entry and interaction with the "QDR 
Machine" itself. 
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2. Mul ti- User Env ironment 

The QDR System uses dEASE II *.o handle all aspects 
cf the system's operations. This database management 
product is designed for a single user and does not provide 
the locking mechanisms necessary for a multi-user environ- 
ment. To overcome this deficiency, a Database Handler was 
created to control access to the various database files. 
Access to the Database is achieved by calling the Database 
Handler routine and providing it with a two character 
alpha-numeric type code which represents the type of the 
desired access (See figure 3.13) . The Database Handler will 
either expect additional parameters or will provide informa- 
tion depending on the selected access type. 

In order to perform record locking or file write 
functions, the Database Handler must first establish write 
access to the database file that is being written to. A 
special "File Status" data file provides the mechanism to 
determine write access. As each user process calls the 
Database Handler for file write transactions, the file 
status is checked to see if the file is currently locked by 
another process. If the file is locked, the Database 

Handler enters into a test and wait loop until the file is 

made available. When the file is unlocked, the Database 

Handler will then lock the required file by placing the User 

I.D. cf the operator into the file status file. There is a 
point of contention at the moment the file is released by a 
process. Each terminal on the network has its own copy of 
the Database Handler and as such, when a file is unlocked, 
ether processes will perform the same locking action. To 
ensure that a process has obtained write access, a verifica- 
tion check is made just prior to actually performing the 
write operation. If write access has been obtained, the 
Database Handler will perform the writ.e and release the data 
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1 

The first character of the Access Cede represents the 
file being accessed and the second character represents 
type of access desired. 

First Character Database File Used 

1 OPEN 1 

2 0PEN2 

3 CL0SE1 

4 CL0SE2 

Second Character Database Action 

A Read - NS N Access (See note 1) 

B Read - Case Number Access 

C Write - Unlock Record 

D Read/Lock - NSN Access 

E Read/Lock - Case Access 

F New Record Creation (See note 2) 

G Record Unlock 

H Read - Record Number Access 

I Skip/Read - Record Number Access 

Note 1: 0pen2 and Close2 do not have NSN Access and 

default to Case Number Access. 

Note 2: Closel and Close2 create new records from the 

Open File records being closed. 

i 

Figure 3.13 Database Handler Access Codes. 

file for others. If write access is not obtained, the test 
and wait loop is entered again. 

To perform a write operation, the entire database 
file is locked so that no one else can write to it. When an 
individual record must be updated, it is undesirable to 
leave the Database file locked while the operator is making 
updates to the record. To prevent this, a record locking 
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capability was added to the Database Handler. This is done 
by including a timestamp data element in each data record. 
Prior tc retrieving a record for update, the Database 
Handler checks to see if the record has previously been 
locked. Any attempt to update a locked record will result 
in a cede being returned tc the calling program/module (See 



The Data Base Hardier will return a one digit Code 
indicating the S uccsss/Failure of a Data Base Access. 

Return Code Definition 

0 Eata Base Access Successful 

1 Record Currently Locked 

2-8 Dnassigned (Available for 

future growth) 

9 Record Not Found 



Figure 3. 14 Eata Base Handler Return Codes. 

Figure 3.14). As with general write operations, the data- 
base must be temporarily locked to allow zhe zimestamp to be 
written cut to the file. This record locking mechanism 
allows multiple users to function without unintentionally 
cverwrizing informaticn. 

3 . Sy s tem S ecur ity 

Eecause cf the amount cf data held by the QDR System 
and the value of the informaticn to FMSO Code 91423, the QDR 
System required some degree of security. There are basi- 
cally twe levels of security available for the system. The 
first level of security is the proteezion of the Syszem 
Disks. • The Master Network Station is the gateway to the QDR 
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Programs and Data Files. Ey keeping the master station 
operating disks under lock and key, the system is net gener- 
ally accessible to unauthorized personnel. Access to these 
disks should be controlled by the system supervisor or his 
assistant supervisor. 

The second level of security involves a logon and 
password system incorporated into the QDR Software. Each 
authorized user is provided a unigue user identification 
code which will allow him access to the system. In addition 
to the required I.E. Code, a password is required to 
complete the logon procedure. The passwords may and should 
be changed periodically by the system supervisor to reduce 
the likelyhcod of unauthorized personnel becoming familiar 
with the passwords. To utilize the QDR System, the user 
accesses the system as described in the section on user 
interface. The user is given three attempts to access the 
System. If all three access attempts fail, the system will 
display an "Illegal Access Attempt" message and will lockout 
the terminal. The only way to return a locked terminal to 
an operational mode is to "reboot" the affected terminal. 

Although this method of security is simplistic, it 
is the method most suitable for a system of this nature. As 
the value of the data held by the system increases, the 
security procedures should be reviewed to ensure they are 
adequate . 

4 . Flexibility And Mai n te na nee 

The fact that the QDR System could expect to undergo 
changes was considered in not only program development, 
but also in the database organization. Flexibility and 

maintainability of the entire system represented develop- 
ment objectives in order to support the earlier 
discussed design goals of modularity and information 
hiding.. 
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EBASE II with its command language and relational 
database provided a powerful vehicle to construct the 
programs and databases for the system. The English-like 
quality of the command language provides the programmers a 
sense of code function over and above relying on algorithm 
inspection alone. Comments were spread throughout the 
program listing where they would assist understanding 
of specific portions of the processing, especially in 
QUERY and XEBHNDLR (See Appendix D for a complete set of QDR 
System Irogram Listings). Additionally, comments were 
provided in the program headers to identify critical infor- 
mation. Variables passed between the module of interest 

and all ether modules as well as a list of subordinate 
and supero rdina te modules were provided. Maintenance of 
the programs could then be conducted with a knowledge of 
the current interface between the modules. 

The structured programming technique of indentation 
was used to enhance readability and underst andability of the 
code. This provided anyone reviewing the source listings 
with an easy to understand view of the control structures. 
Each level cf control was indented to identify and clarify 
the hierarchy of control. Each hierarchical level can thus 
be traced from level to level by following the indentation 
patt ern. 

In addition to the general aids to maintainability 
described above, seme specific areas were identified for 
likely future changes. Internally generated change 

was expected from assignment of different analysts, addi- 
tional or modified internal reports and standard queries. 
External changes were likely in the areas of Cognizance 
Group (COG) assignments, changing addresses cf Item 
Managers and report modifications. 

The supervisor was provided with the means to 
update .currently authorized users and their passwords via 
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the supervisor's main menu. The updating of COGs ar.d Item 
Manager's information were also included. These were 
seen as routine housekeeping modifications which did not 
demand a programmer's attention. 

If demand for specific, repetitive queries arise, 
the addition of this capability by maintenance programmers 
is very easy. Currently each analyst is able to receive a 
listing cf each of his currently open cases as a standard 
query from his "report menu". To add any additional 
query would require modification of only one program 

module. 

As an example, suppose that a commonly cccuring 
guery by all analysts was to receive a list of their open 
cases from a particular COG. The programmer would be able 
to provide this capability by adding only a few lines of 
code. The addition of a menu selection item would be 
accomplished by the following: 

***** MENU ADDITION 

' 2 - List of assigned open cases for specific CCG ' 



***** VALIDATING ENTRY 

STORE T TO BADCCG 
DO WHILE BADCOG 

S LINE, COLUMN SAY 'Enter COG' GET ANSWER 
READ 

USE D : C OGS 
FIND ANSWER 
IF # = 0 

a 23,20 SAY 'COG NOT FOUND, TRY AGAIN' 

ELSE 

STORE F TC BADCCG 
EN DIF 

ENDEO <BADC CG> 

***** N0W FIND THE OPEN CASES FOR THIS ANALYST 
***** CHOICE OF MEDIUM WAS MADE IN ORIGINAL MENU 

USE D:OPEN1 

DISELAY CASE. NSN. NOMEN ,$ (DATES , 1 1, 5) FOR COG = ANSWER 
. AND. WHO = C : WHO 



but cne of the many methods that could be 
the additional capability to the analysts. 
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This is 
used tc provide 



The isolation of the functions within a single module 
combined with the power of a relational database are a 
definite asset to the programmer in extending the use of 
the system to its users. 

While the capability to extend the functions 
provided has been built in, the decision to do so should 
not be taken without consideration of the impact on the 
system as a whole. An extension such as the one just 
described could be helpful and not be detrimental :c the 
system operation if properly implemented. A choice would 
have to be made; 

1 . Restrict the use of this option to 
low use periods. 

2. Implement, it as a standard internal report, 
once a week for example. 

3. Create an index file based on either COG or 
analyst and keep these updated during normal 
processing. 

The supervisor must be aware of the impact of 
these alternatives. What in the first view looks like a 

very easy and useful method of producing the listings, may 

potentially cause system-wide problems. The two most likely 
drawbacks would be slowing processing response time to an 
unacceptable level cr causing additional index files to 
steal precious space on the system hard disk. The first 
option would allow analysts to retain greatest flexi- 
bility, however it would be difficult to implement and 

control. The internal indexing of the databases for 
normal processing includes neither COG nor Analyst. 

For this reason a request as outlined above would 
require a sequential search of the OPEN 1 database. A 

process that could take up to 30 minutes, not likely a 
satisfactory solution! 

The second option has the advantage of being 
easy to control, has no impact on day to day processing 
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cr storage and meets the requirement to provide e 
list to each analyst. Analyst flexibility would be 
compromised and the required periodicity would have to be 
determined. 

Choice number three would allow the lists to be 
generated upon demand. The major drawback would be the 
addition of an additional index that would have to be 
updated at each case creation, update and closing. 

This would add overall processing requirements and thus slow 
down the complete system. Additionally, the index would 
require space on the hard disk, a critical resource. 

The proper choice for the supervisor and 
programmer combination would balance the users needs 

and the system realities. Although the above example 

shows a simple, easy extension it points out the neces- 
sary considerations which must be included in all deci- 
sions. The micro computer system, as well as the mainframe 
computer does have application limits. In the QDR System 

all current requirements have been met, and while 

designed for ease of maintenance and ext endability , the 
latter should be implemented with discretion and caution. 

E. HAEDWARE 

The QDR System is a combined software and hardware suite 
which performs management information and database manage- 
ment functions. The hardware selected for the system was 
comprised cf multiple microcomputers, secondary storage 
devices, printers, monitors, keyboards, and network hardware 
with controlling software. The selection of the supporting 
hardware is vital to the operation of the central database 
system because it provides the mechanism for sharing the 
database files and operating programs. To meet the demands 
of the network operation, the hardware must be compatible 
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and allow the equipment to be integrated into a complete 
system. 

1 • Sel ect ed H ar aware 

The micr ccomputer selected for the QDR System was 
the IEM-Personal Computer (PC). This provided expandability 
and supported both networking and relatively large hard disk 
storage devices. At the Naval Postgraduate School prototype 
site, the network was composed of four PC's. Each PC was 
equipped with a keyboard, a color monitor and color 
controller board which allowed the experimentation with 
color interfaces for users. All of the PC's contained two 
double-sided double-density 320 KByte floppy disk unins with 
controllers and network controller boards for Orchid 
Technology's PCnet. Two of the four PC's had 128 KBytes of 
random access memory (RAM) while the other two had 320 
KBytes of RAM. The 320 KB systems were also equipped with 
AST Research's MegaPlus board which provided 64 KB of the 
320 KE RAM, a clock/calendar , a serial input/output (I/O) 

port, and a parallel I/O port. These I/O ports allowed the 
connection cf either printers or modems. Two printers were 
connected to the network (cne to each of the PCs with I/O 
ports) . One printer provided letter quality output through 
its daisy wheel print, while the other provided the capa- 
bility cf printing text and drawing graphs through its dot 
matrix print. 

The personal computers with the additional memory 
and I/O capabilities were also outfitted with interface 
cards for Tallgrass Technolcgy's 20 MByte Hard Disk Stcrage 
Units. These disk units provided up to four logical disk 
drives and contained built-in tape backup units which 
allowed saving archival information. 
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hardware was 



^ . 



Hardware Integr ati on 



The integration of the hardware was largely 
completed by the eguipment manufacturers. The controller 
boards for both the network and the hard disk interfaces 
were specifically designed to become an integral part of the 
IBM- PC. The software that controlled both the hard disk and 
the network were created to work in conjunction with the 
PC-DOS operating system and with each other. The importance 
of this interface between the manuf acturers became very 
apparent as system integration testing began. The initial 
versions of the network and hard disk software were not 
completely compatible. As a result, the system was prone to 
locking up during operations that involved large amounts of 
disk accessing. The respective companies worked together to 
solve the lockup problems and made available the corrected 
versions. Once the corrected versions were installed, the 
lockup problem appeared to be alleviated and cleared the 
path for the creation of the Central Database System. 



3. Hardware Limitations 



A limitation of the selected hardware suite is the 
inability for a shared PC to access files located on another 
shared PC. This means that the shared PCs are limited in 
their ability to access the total database. During the 
early design phases, this was not considered a problem 
because each record only required 275 bytes of information. 
Assuming a combined lead of 30,000 records in the Open and 
Closed Database Files, the system required less than 9 Mega 
Bytes of storage. Under the revised QDR processing require- 
ments, the same load of 30,000 records required over 18 MB 
of storage. The 18 ME requirement does not include overhead 
for programs, support files, or indices required by the QDR 
System. This meant that the Open and Closed Database Files 
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needed tc be split across two hard disk units. Since the 
user PCs can have access to multiple shared devices, this 
limitation only restricts the use of the shared PCs. By 
utilizing the shared PCs as network controllers only, the 
databases can be split across the network and accessed by 
all users. 

C. TESTING 

Testing was conducted throughout the development 

period of the QDR System. The testing approach used was 
to progress from unit testing of one module to integra- 
tion of tested modules. Validation of these modules against 
design criteria was followed by system testing using the 
complete software and hardware package. [Ref. 4] 

1. Unit Testing 

Unit testing of modules represented the first level 
of testing. Once the program modules were coded and had 

been cleansed of any syntactical ailments, they were indi- 
vidually tested. Both testing harnesses and pregram 

stubs were used at different stages of program development. 
The top down design had identified those key modules needed 
to support the function of the system. The first 

modules coded and tested were thus the Database Handler 
{XDBKNDLR) and the Cpen Case Module (XOPEN2) . Testing 
XDBHNDIR reguired development of a harness in order to 
input expected parameters and make available specific data 
to the module. The emphasis of this module was two-fold. 
First it was expected to be the program’s interface with 
the case databases, and as such had no properly read and 
write specific files according to the "type code" presented 
to it. The second concern was contention. Stepwise 
testing of the module was conducted. A testing harness 
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with a sample data set was used to exercise the Database 
Handler until it performed properly. The second testing 
stage was to use multiple inputs over the network to 
isolate any contention problems and eliminate them. 
Concurrently the Open Case module was undergoing parallel 
testing using the database directly. 

2 • Int eqrat ion and System Te stin g 

Integration testing was then conducted to bring 
together the XDBHNDIE and X0PEN2 modules. The purpose of 
this stage was to ensure the interface between the 

modules was in accordance with design. Once these programs 
were in this stage, the same sequence was utilized to test 
the other main modules, and bring them up to the integrated 
level . 

Ey late October the main processing modules were 
integrated and the limited system was operating satisfacto- 
rily. The systeir re-design and development discussed 

earlier caused testing to begin anew. At that time the 
operating system version was changed from PC DOS 1.1 to 
PC DOS 2.0. The network and hard disk software were 

also upgraded. 

Limited time for completion of system development 
and coding resulted in only partial system testing by mid 
January on the N PS prototype system. During demonstration 
at the FKSO site, the QDR system operated properly as a 
single user system but net with multiple simultaneous 
transactions over the network. The cause was net deter- 
mined at that time. Orchid Technology and Tallgrass were 
contacted to discuss the difficulties, resulting in an 
updated release of both software packages being sent to NPS. 

limited system testing on the NPS network indi- 
cated that the problem had been corrected. Subsequent 
operation of the QDR system by personnel at FMSO (with -he 
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upgraded software) was not successful. Multiuser system 
failure could not be duplicated at NPS. Reasons for the 
network failure at FMSO have not been identified. 

3. Response Times 

Multiple users and large databases affect response 
time cn micro computer systems to a large degree. Figure 
3.15 shows the time required for specific operations with 
different system loads. Where depicted, multiple users 
are performing the exact same operations simultaneously. 
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operations at the same time then the times could increase to 
a level where input operations would be significantly 
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delayed. The differential in response times for added users 
reflects two items. The first is the contention induced for 
packet access to the network, which represents the main 

portion cf the delay time. The second is a delay due to 
internal checking in XDBHNDLB to allow only one of the 

asynchronous processes access to the database. Time differ- 
ences between the operations reflect the amount of data 
which has to be stored into the database as well as the 

number cf different databases which must be accessed to 

complete the operation (2 fcr posting a case, 4 for closing 
a case) . 
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IV. CONCLUSIONS AND RECOMMENDATIONS 



A prototype systeir is designed to provide an interface 
for users and acquaint them with the potential value cf an 
automated operation. It allows the user to see how the 
final system will present and accept data and provides the 
opportunity to modify the interface before final system 
implementation. Prototyping allows the rapid development of 
a system but generally dees net contain all of the capabili- 
ties of an operational system. 

The QDR System, although a prototype, was designed with 
capabilities beyond normal prototyping. It provides not 
only user interface capabilities, but also full database 
management capabilities. The additional features were added 
to allow the Q DR Systeir to be placed in an operational envi- 
ronment to be tested and to aguaint the user with automated 
systems and their operations. To provide functionality, the 
system was designed for multiple users to access the data- 
base files. This meant that the system allowed for record 
locking, multiple read/write operations, and security access 
to the system. 

A. CCNCID SIONS 

The design and implementation of an automated Quality 
Deficiency Reporting System prototype has been described in 
this study. A working prototype has been established and is 
available for future evaluation. Conclusions drawn from 
this development include: 

1. The prototype software design meets current QDR 
processing requirements and includes PDREP derived data 
elements identified for future inclusion in the QDR System. 
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2. There are two main operating limitations with the 
current system; speed of processing with multiple users and 
limited system capacity to meet increased QDR requirements. 

3. The NPS prototype system demonstrated the feasibility of 
accomplishing QDR processing on a microcomputer based 
system. 

4. If new software and hardware become available to allev- 
iate network and database limitations, the prototype could 
be modified to provide an operational system. 



E. RECOMMENDATIONS 

1. Continue development of a microcomputer based system to 
provide automation of the QDR workflow. 

2. Consider migration to a minicomputer or mainframe 
computer using the basic prototype design, in order to allow 
for faster response time and growth potential. 

The recommendations above provide for the user tc become 
familiar with the autcmation capabilities that can be imple- 
mented in the QDR processing environment. Additionally, it 
opens up the channels for user feedback to system designers 
that are working on future versions of QDR support systems. 
The initial design considerations that went into creating 
the prototype system are valid for mini/mainframe computer 
implementation. The data dictionary used, the menus and 
interface screens, and the security considerations will 
remain valid in both the microcomputer and mini/mainframe 
computer environments. The use of a higher level language 
in the prototype system provides the potential to directly 
convert the algorithms to a new system. 

If it is more practical to continue utilizing the micro- 
computer network, the size of the database could be expanded 



by the use cf 35 ME hard disk units, thus approximately 
doubling the system capacity. Additional speed for the 
microcomputer network could possibly be achieved by 
converting the file and record locking/unlocking operations 
into assembly or machine language routines (although this is 
net recommended because of future maintenance headaches) . 
Another avenue to explore is the acquisition of a multi-user 
version cf dBase II that was recently announced. This would 
allow the elimination of file locking and control currently 
accomplished by the CDR System software, and with a small 
amount cf reprogramming the XDBHNDLR proqram could be 
eliminated. 

The prototype QDE System provided a starting point for 
future growth in the QDR processing environment. The 
groundwork that has keen laid can be utilized for either a 
continuation in the microcomputer realm or can be utilized 
with larger computers. 



42 



AP PENDIX A 

GLOEAL MEMORY DEFINITIONS 

There are various types cf memory variables utilized by 
the QDR System. These variables are divided into Global and 
Local Variables. Global Variables are used to transfer data 
between programs and modules and are designated by either M: 
or C:. Local Variables are utilized for internal control 
within programs. These variables are identified by U: for 

XUPDATE, H: for XDBHNELR, 0: for X0PEN2 , etc. 

The variables listed below are the Global Variables 
utilized by the CDR Sysrem. They are presented as: 

Variable Name Using Modules 

Description Of Variable 

C:JULIAN (CLOSREC, LOGON, MENU1, XDBHNDLR, 

X0PEN2, XUPDAT, XXBISTAT, XXMNSTAT) 

MEMORY VARIABLE WHICH HOLDS TODAYS JULIAN DATE. THIS DATE 
IS GENERATED BY ACCESSING THE SYSTEM CALANDER AND CONVERTING 
TO A JULIAN DATE. 



C: WHO 



(CLOSREC 
LOGON, 
RPTMENU 
SUPRPT2 
XOPE N2, 



, COGCNT, C-REASGN, DEPACK, 
MENU1 , OCASERPT, QUERY, 

, STATGEN, SUPMENU1, SUPRETS, 
, UTILMENU, UTILNDX, XDBHNDLR 
XUPDAT, XXBISTAT, XXMNSTAT) 



r 



MEMORY VARIABLE THAT HOLD THE LOGON IDENTIFICATION OF THE 
ANALYST. THIS IS CAPTURED DURING THE LOGON PROCESS. 



M: ACTDISE (XDBHNDLR, X0PEN2 , XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE ACTION/DISPOSITION 
INSTRUCTIONS. ORIGINALLY CAPTURED FROM BLOCK 21 OF THE 
SF 3 6 8. 

MiACTPT (XDBHNDLR, X0PEN2 , XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE ACTION POINT. 
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M: ACTTKN 



M: C AS E 



M : C AT 



(NORMAL FRIORITY ) 
QDR MESSAGE. 



M.'CAUSEC 



M: CCOST 



MrCLOSE 



NDLR, 


XUPDAT) 




IFIES 
E THE 


THE ACTION CODE. 
SF 368. 


ORIGINAL 


REC, 

AT) 


C-REASGN, XDBHNDL 


R, XOPEN 2, 


TURE 


THE NUMBER OF THE 


QDR CASE. 


ASGN, 


XDBHNDLR, XOPEN 2 


, XUPDAT) 


THE CLASS OF THE QDR 
Y 1 (HIGH PRIORITY) OR 
LLY CAPTURED FROM THE 


CASE. 

CATEGORY 
SF 368 OR 


NDLR, 


XOPEN2, XUPDAT) 




IFIES 


THE CAUSE CODE. 




NDLR, 


XOPEN2 , XUPDAT) 




IFIES 

FROM 


THE ESTIMATED CORRECTICN 
ELOCK 18 OF SF 368. 


REC, 


XOPEN2, XUPDAT) 




THE 

SING 


DATE THE CASE WAS 
THE CASE. 


CLOSED. 


ASGN, 

STAT) 


XDBHNDLR, XOPEN 2 


, XUPDAT, 


THE 


COGNIZANCE SYMBOL 


FOR THE 



M:COG 



ASSOCIATED NSN . ORIGINALLY CAPTURED FROM BLOCK 5 OF THE 
SF 368. 



M: CO STC (XDBH NDLR, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE COST CODE. 

M:CR (CLOSREC, XDBHNDLR, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE CREDIT CODE. 



M: DATES 



(CLOSREC, C-REASGN, XDBHNDLR , XOPEN 2, 
XUPDAT, XXBISTAT, XXMNSTAT) 



MEMORY VARIABLE WHICH HOLDS THE CONCAT IN AT ION OF THE MAJOR 
CATES ASSOCIATED WITH THE QDR SYSTEM. 
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M ;DEF 






(XDBH 


NDLR, 


XOPEN2, XUPDAT) 




MEMORY 


V ARI ABLE 


WHICH 


IDENT 


IFIFS 


THE TYPE DEFECT CODE. 


MtDEFR 






(XDBH 


NDLR, 


XOPEN2 , XUPDAT) 




MEMORY 


VARIABLE 


WHICH 


HOLDS 


THE 


DEFECT RESPONSIBILITY CCDE 


M: DEFV 






(XDBH 


NDLR, 


XOPEN2, XUPDAT) 




MEMO R Y 


V ARI ABLE 


WHICH 


HOLDS 


THE 


DEFECT VERIFICATION 


CODE. 


M: DETAILS 




(XDBH 


NDLR, 


XOPEN2 , XUPDAT) 




MEMORY VARIABLE WHICH IDENT 
ORIGINALIY CAPTURED FROM BL 


IFIES THE DETAILS OF THE 
CCK 22 OF THE SF 368. 


QDR. 


MiDIS 






(XDBH 


NDLR, 


XOPEN2 , XUPDAT) 





MEMORY VARIABLE WHICH IDENTIFIES THE DISCOVERY CODE. 
ORIGINALLY CAPTURED FROM BLOCK 22 OF THE SF 368. 



M: DITEM (XDBH NDLR, XOPEN2 , XUPDAT) 

MEMORY VARIABLE WHICH CONCATENATES MODEL, SERIAL NUMESR OF 
DEFICIENT PART, NEXT HIGHER ASSEMBLY, AND SUB ASSEMBLY. 
ORIGINALLY CAPTURED FROM 3L0CK 16 OF SF 368. 



M: DOC (XDBH NDLR , XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE TYPE DOCUMENT. ORIGINALLY 
CAPTURED FROM BLOCK 30 OF THE SF 368. 

M: DOCNO (XDBH NDLR, XOPEN2 , XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE DOCUMENT NUMBER. ORIGINALLY 
CAPTURED FROM BLOCK 10 OF THE SF 368. 



M : EPRC 



(XD3HNDLR, XOPEN2 , XUPDAT) 



MEMORY VARIABLE WHICH HOLDS THE EXTENDED PRICE OF THE 
DEFICIENT MATERIAL. THE EXTENDED PRICE IS CALCULATED BY 
MULTIPLYING THE QUANTITY DEFICIENT 3Y THE UNIT PRICE. 
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M: FSCM 



(XDBHNDLR, X0PEN2, XUPDAT) 



MEMORY VARIABLE WHICH HOLDS THE FEDERAL SUPPLY CODE OF 
MANFACTURER. ORIGINALLY CAPTURED FROM BLOCK 7 OF THE 
SF 3 6 8. 



M'.GOV 

MEMORY VARIABLE WHICH 
MATERIAL. ORIGINALLY 



(XDBHNDLR, XOPEN2, XUPDAT) 

IDENTIFIES GOVERNMENT FURNISHED 
CAPTURED FROM BLOCK 14 OF THE SF 368. 



M: ITEM 

MEMORY VARIABLE WHICH 
REPAIR/ OVERHAUL ITEM. 
THE SF 368. 



(XDBHNDLR, XOPEN2 , XUPDAT) 

IDENTIFIES THAT THE ITEM IS NEW OR A 
ORIGINALLY CAPTURED FROM BLOCK 11 OF 



M : KE Y 

MEMORY VARIABLE WHICH 



(CLOSREC, C-REASGN, XDBHNDLR, XOPEN2) 
CONTAINS THE DATABASE ACCESS KEY. 



M: LD 

MEMO 

TED 

MISS 



ATE (CLOS 

RY VARIABLE WHICH HOLDS 
TO THE ITEM MANAGER. OR 
ION CF THE CASE. 



ESC, XOPEN2) 

THE DATE THE CASS WAS TRANSMIT- 
IGIN ALLY ENTERED UPON TRANS- 



MIT 

MEMORY 

NUMBER. 



(XDBH 

VARIABLE WHICH IDENT 
ORIGINALLY CAPTURE 



NDLR , XOPEN2, XUPDAT) 

IFIES THE MANUFACTURERS LOT 
D FROM BLOCK 16B(3) OF SF 368. 



M:MFG (XDBHNDLR, XOPEN2 , XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE MANUFACTURERS PART 
NUMBER. ORIGINALLY CAPTURED FROM BLOCK 16B(3) OF SF 368. 



M: NO MEN 

MEMORY VARIABLE WHICH 
EEING REPORTED IN THE 
OF THE SF 368. 



(XDBHNDLR, XOPEN2, XUPDAT) 

HOLDS THE NOMENCLATURE OF THE MATERIAL 
QDR. ORIGINALLY CAPTURED FROM BLOCK 6 



K:NSN (C-REASGN, 

MEMORY VARIABLE WHICH IDENTIFIES 
GRIGINALIY CAPTURED FROM BLCCK 5 



XDBHNDLR, XOPEN2 , XUPDAT) 

THE NATIONAL STOCK NUMEER. 
OF SF 368. 
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M: NU M 



(X0PEN2, XUPDAT) 



MEMORY VARIABLE WHICH IDENTIFIES THE CONTRACT NUMBER UNDER 
WHICH TEE REPORTED MATERIAL WAS RECEIVED. ORIGINALLY 
CAPTURED FROM BLOCK 10 OF THE SF 368. 



M: 09Q 






(XDBH 


NDLR, 


XOPEN2 , 


XUPDAT) 


MEMORY 


VARIABLE 


WHICH 


IDENT 


IFI ES 


THE GS A 


REGION CODE 


FOR 9Q 


ITEMS. 












M.-OPEN 






(CLOS 


EEC, 


XOPEN2, 


XUPDAT) 


MEMO RY 


VARIABLE 


WHICH 


HOLDS 


THE 


DATE THE 


CASE WAS OPENED 


ORIGINALLY ENTERED BY 


THE S 


YSTEM 


UPON NEW CASE INPUT. 



M: ORG 






(XDBH 


NDLR, 


XOPEN2 , XUPDAT) 


MEMORY 


VAEI ABLE 


WHICH 


HOLDS 


THE 


ORIGIN CODE. 


M: 0 T F 






(XDBH 


NDLR, 


XOPEN2 , XUPDAT) 


MEMORY 


VARIABLE 


WHICH 


IDENT 


IFIES 


THE OPERATING TIME A 



FAILURE. ORIGINALLY CAPTURED FROM BLOCK 13 OF THE SF 3 68 . 



M:0 VER (XDBH NDLR , XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE DATE OF MANUFACTURE/ 
OVERHAUL. ORIGINALLY CAPTURED FROM BLOCK 12 OF THE SF 368. 



M: QT YEEF (XDBH NDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL 
REPORTED AS DEFICIENT. ORIGINALLY CAPTURED FROM BLOCK 
15C OF THE SF 36 8. 



M: QT YINS (XDBH NDLR, XO PEN2 , XUPDAT) 

MEMORY VARIAELE WHICH HOLDS THE QUANTITY OF MATERIAL 
INSPECTED EY THE REPORTING ACTIVITY. ORIGINALLY CAPTURED 
FROM ELCCK 15B OF THE SF 36 8. 



MlQTYREC (XDBH NDLR, XO PEN2 , XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL 
RECEIVED EY THE REPORTING ACTIVITY. ORIGINALLY CAPTURED 
FROM ELOCK 15A OF THE SF 36 8. 
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M: QT Y STK (XDBHNDLR, X0PEN2 , XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL IN 
STOCK AT THE REPORTING ACTIVITY WHEN THE Q DR WAS SUE MI TIED. 
ORIGINALLY CAPTURED FROM BLOCK 15D OF THE SF 368. 



REC, XOPEN2, XUPDAT) 

THE DATE RECEIVED FROM ORIGIN. 
E MAIL ROOM TIMESTAMP ON RECEIPT 

REC, XDBHNDLR, XOPEN2) 

IFIES THE RECORD NUMBER OF THE 
IS IS A SYSTEM GENERATED 



M: RD ATE (CLOS 

MEMORY VARIABLE WHICH HOLDS 
ORIGINALLY CAPTURED FROM TH 
DATE. 



M: REC 1 (CLOS 

MEMORY VARIABLE WHICH IDENT 
RECORD BEING PROCESSED. TH 
VARIAELE. 



M.-REOPEN (CLOS 

MEMORY VARIABLE WHICH HOLDS 
REOPENED. ORIGINALLY ENTER 



, XOPEN2, XUPDAT) 

E DATE A CLOSED CASE IS 
UPON REOPENING A CLOSED CASE. 



REC 

TH 

ED 



M : RE PCO N (XDBHNDLR, XOPEN2 , XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE REPORT CONTROL NUMBER. 
ORIGINALLY CAPTURED FROM BLOCK 3 OF THE SF 368. 



M: REPLY (XDBHNDLR, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE REPLY RECEIVED FROM 
THE ITEM MANAGER. ORIGINALLY CAPTURED FROM BLOCK 32 OF 
THE SF 368. 



M: RETC 
MEMORY 



VARIABLE 



(XDBH NDLB, 
WHICH IDENTIFIES 



XUPDAT) 

THE RETURN CODE OF THE QDR. 



M: RI MDATE (CLOS 

MEMORY VARIABLE WHICH HOLDS 
MANAGER. ORIGINALLY ENTERE 
FROM THE ITEM MANAGER. 



REC, XUPDAT) 

THE DATE RETURNED FROM THE ITEM 
D UPON RECEIPT OF A RESPONSE 



M: SCR 

MEMORY VARIABLE WHICH 



(XDBHNDLR, XUPDAT) 

IDENTIFIES THE SCREENING CODE. 
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KlSCFCTY (XDBHNDL3, 

MEMORY VARIABLE WHICH IDENTIFIES 



XUPDAT) 

THE SCREENING QUANTITY. 



M:SM (XD3HNDLF, XOFEN2, XUPDAT) 

MEMOFY VABIAELE WHICH IDENTIFIES THE SUPPLY MANAGEMENT 
INFO E M AT IC N CODE. ORIGINALLY CAPTURED FROM BLOCK 5 CF THE 
SF 366. 



M: ST AID 


SC 




(XD3H KDLF, 


XUPDAT) 




MEMO R Y 


VARIABLE 


WHICH 


IDENT IFIES 


THE STATUS CODE. 




E : T I E E 






(LOGO N , XD 


BHNDLR , XOPEH2) 




MEMORY 
SYST EE 


VARIABLE 
V A FI ABLE 


WHICH 

USED 


HCLDS THE TIMESTAMP. THIS IS 
TO LOCK INDIVIDUAL RECORDS. 


A 


E : T Y E E 






(CLOSREC, 

XUPDAT) 


C-RZASGN, XD3HNDLE , 


XCPEN2, 


MEMORY 

HANDLER 


V A El AELE 
ACCESS 


which: 

CODE. 


HOLDS THE 


CODE SPECIFYING THE 


DAT A3 ASE 


e : a i 


0 




(XDBH KDLE, 


XOPEN2 , XUPDAT) 




MEMO E Y 


V A. FI AELE 


WHICH. 


HOLDS IRE 


UNIT OF ISSUE FOR T 


HE 



a EPOEIEC MATERIAL. Cf IGINALLY CAPTURED FROM THE ML-K 
EASEL CN TEE NSN BEING REPORTED. 



K : U I C (XC3HNDLR, XOPSN2 , XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE UNIT IDENTIFICATION CODE CF 
TEE ACTIVITY SUBMITTING THE QDR. ORIGINALLY CAPTURED FROM 
ELOCN 1 A CF THE SF 3 66. 



K : U ? R C 

MEMORY VARIABLE WHICH 
MATERIAL. CEIGINALLY 
REPORTED NSN. 



(XD3HFDLF, XCPEN2, XUPDAT) 

HOLDS THE UNIT PRICE FOR THE REPORTED 
CAPTURED FROM THE ML-N EASED CN THE 



V . : V I C 

MEMORY VARIABLE WHICH 



( C LOS RFC , XD3HNDLR, XUPDAT) 

IDENTIFIES THE VENDOR LIABILITY CODE. 



M:WHO (C-REASGN, XDBHNDLR) 

MEMORY VARIABLE WHICH IDENTIFIES THE INDIVIDUAL CREATING 
THE RECORD. THIS IS A SYSTEM VARIABLE WHICH IS CAPTURED 



FROM THE SYSTEM 


LOGON. 


M: WNTY 


(XOPEN2, XUPDAT, XDBHNDLR) 


MEMORY VARIABLE 


WHICH IDENTIFIES THE WARRANTY STATUS OF THE 



ITEM. ORIGINALLY CAFTURED FROM ELOCK 19 OF SF 368. 

M : WUC (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE WORK UNIT CODE. 
ORIGINALLY CAPTURED FROM BLOCK 20 OF THE SF 368. 
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APPENDIX B 

QDH DATABASE FILE STRUCTURES 





STRUCTURE 


FOR FILE 


FLD 


NAME 


TYPE 


001 


CASE 


C 


002 


CCG 


C 


003 


NSN 


C 


004 


CAT 


C 


005 


NCMEN 


C 


006 


UIC 


C 


007 


UI 


C 


008 


QTYDEF 


N 


009 


U PRC 


N 


010 


E PRC 


N 


Oil 


ORG 


C 


012 


DCC 


C 


013 


DCCNO 


C 


014 


DATES 


C 


015 


REPCON 


C 


016 


FSCM 


C 


017 


TIME 


C 


018 


WHO 


c 


019 


NUM 


c 


020 


CR 


c 


021 


SCR 


C 


022 


SK 


c 


023 


OSQ 


C 


024 


DEF 


c 


025 


VIC 


C 


026 


ACTPT 


c 


027 


SCRQTY 


N 


** TOTAL 


** 


00219 





STRUCTURE 


FOR FILE 


FLD 


NAME 


TYPE 


001 


CASE 


C 


002 


QTYINS 


N 


003 


QTYREC 


N 


004 


QTYSIK 


N 


005 


DEFV 


c 


006 


DEFR 


C 


007 


ITEM 


c 


008 


OVER 


C 


009 


OTF 


c 


010 


GCV 


c 


Oil 


TIME 


c 


012 


WHO 


c 


013 


DITSM 


c 


014 


C COS T 


N 


C 15 


WNTY 


c 


016 


wuc 


c 


017 


DIS 


c 



ElOPENI .DBF 



WIDTH DEC 

0 07 
002 
013 

001 
019 
006 
002 
006 

009 002 

012 002 

003 
001 
0 14 
046 
0 12 
006 
0 1 1 

004 

0 17 

001 
003 
002 
001 
002 
001 
0 1 1 
006 

EYTES 



D :0 PEN 2 .DBF 



WIDTH DEC 

007 

006 

006 

006 

001 

001 

001 

005 

005 

001 

011 

004 

0 35 

012 002 

001 
007 
002 
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CIS 


DETAILS 


C 


120 


019 


REPLY 


C 


120 


020 


ACTTKN 


C 


003 


021 


CCSTC 


c 


001 


022 


STATUS C 


c 


0 02 


023 


C AUSEC 


C 


001 


024 


R ETC 


c 


001 


025 


ACTDISP 


c 


001 


026 


KEG 


c 


0 16 


C27 


LOT 


c 


009 


** TOTAL 


* $ 


003 86 


3YTES 




STRUCTURE 


FCR FILE : 


D : CLO SE 1 


FLD 


NAME 


TYPE 


WIDTH 


001 


CASE 


C 


0 07 


002 


CCG 


C 


002 


003 


NSN 


c 


0 13 


C04 


CAT 


C 


001 


005 


N C ME N 


c 


0 19 


006 


UIC 


C 


006 


007 


UI 


c 


002 


003 


QTYDEF 


N 


0 06 


C09 


U PRC 


N 


009 


010 


E PRC 


K 


0 12 


01 1 


ORG 


C 


003 


012 


DCC 


C 


001 


013 


DCCNO 


c 


0 14 


014 


DATES 


C 


046 


015 


REPCON 


c 


0 12 


016 


F SCM 


C 


0 06 


017 


TIME 


c 


Oil 


013 


WHO 


c 


0 04 


019 


NUM 


c 


0 17 


020 


CR 


c 


001 


C21 


SCR 


c 


003 


022 


SM 


c 


002 


023 


C9Q 


c 


001 


024 


DEF 


c 


002 


025 


VIC 


c 


001 


026 


ACTPT 


c 


Oil 


027 


SCRQTY 


N 


006 


** TOTAL 


** 


002 19 


BYTES 




STRUCTU RE 


FCF FILS : 


E : CLOSE2 


FLD 


NAME 


TYPE 


WIDTH 


001 


CASS 


c 


007 


002 


C T Y T NS 


N 


0 06 


003 


QTYREC 


S 


0 06 


004 


QTYSTK 


N 


006 


005 


DEF7 


C 


001 


006 


DEFR 


c 


001 


007 


ITEM 


C 


001 


008 


OVER 


c 


0 05 


009 


CTF 


c 


005 


010 


GCV 


c 


001 


01 1 


TIME 


c 


Oil 



. DBF 



DEC 



002 

002 



. DBF 



DEC 
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002 



012 


WHO 


C 


004 


013 


DITEM 


c 


035 


014 


CCOST 


N 


012 


015 


WNTY 


C 


001 


016 


WUC 


c 


0 07 


017 


DIS 


c 


002 


018 


DETAILS 


c 


120 


019 


REPLY 


c 


120 


020 


ACTTKN 


c 


003 


021 


CCSTC 


c 


001 


022 


STATUSC 


c 


002 


023 


CAUSEC 


c 


001 


024 


RETC 


c 


001 


025 


ACTDIS P 


c 


001 


026 


MFG 


c 


016 


027 


LOT 


c 


009 


** TOTAL 






00386 BYTES 





STRUCTURE 


FCR FILE: 


C : COG 


FLD 


NAME 


TYPE 


WIDT 


001 


COG 


C 


002 


002 


IM 


C 


007 


003 


C CUN 


N 


004 


** TOTAL 


** 


000 14 


BYTES 



. DBF 



DSC 



STRUCTURE FCR FILE: 



FLD NAME TYPE 

001 NAME C 

002 TECHCODE C 

003 PSWD C 

004 LOGGED C 

005 ASSIGNED N 

006 ACTIVE N 

007 TRANSMIT N 

008 RESPOND N 

009 CLOSED N 

** TOTAL ** 



D: TECHCODE. DBF 



WIDTH DEC 

0 20 

0 04 
008 

001 
004 
004 
004 
004 
004 

000 54 BYTES 



STRUCTURE FCR FILE: C: ADDRESS .DBF 



FLD 


NAME 


TYPE 


WIDTH 


001 


IM 


C 


007 


002 


TITLE 


C 


018 


003 


CCMMAN D 


C 


040 


004 


CCMMAND2 


C 


040 


005 


ATTN 


C 


015 


006 


STREET 


C 


020 


C07 


CITY 


c 


0 20 


008 


STATE 


c 


002 


009 


ZIP 


c 


005 


010 


C CUNT 


K 


004 
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** TOTAL ** 



00172 BYTES 





STRUCTU RE 


FOR FILE: 


C : WHERDIS .DBF 


FLD 


NAME 


TYPE 


WIDTH 


001 


CODE 


C 


002 


002 


TEXT 


c 


0 20 


** TOTAL 


** 


000 23 


BYTES 





STRUCTURE 


FOR FILE : 


DiFILESTAT. DBF 


FLD 


NAME 


TYPE 


WIDTH 


001 


OPEN 1 


C 


004 


002 


OPEN 2 


C 


004 


003 


C LOS El 


C 


004 


004 


CLOSE 2 


C 


004 


** TOTAL 




000 17 


EYTES 





STRUCTURE 


FOB FILE : 


DiBIWKSTAT.DBF 


FLD 


NAME 


TYPE 


WIDTH 


001 


YEAR 


C 


004 


002 


TOTALS 


N 


005 


C03 


LAST 


C 


005 


** TOTAL 


** 


000 15 


BYTES 



DEC 



DEC 



DEC 
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APPENDIX C 



DATA ELEMENT DEFINITIONS 



This provides a list of the Data Element pictures tha 
used m various QDR proqrams. The column labeled 
Element" contains a short description of the actual El 
that the Variable represents. The column "ID" contain 
variable name associated with the Data Element. The 
further defined in Appendix A. The "Type" is either 
acter "C" or numeric "N", with a length as shown. 
"Picture" shows the size and character type of each 
Element. Standard representations are used:' 



'A* - Alphabetic 
'9* - Numeric, 0-9 

'X' - Either numeric or alphabetic 



Data Element 


ID 


Picture 


Type 


Case Number 


M 


CASE 


• 99 9999k* 


A7 


Cognizance 


M 


CCG 


' XX ' 


A2 


Category 


M 


CAT 


' 9' 


A 1 


Nomenclature 


M 


NCMEN 


•XXX. . .XX* 


A 1 9 


UIC 


M 


UIC 


' AXXXXX' 


A 6 


Unit of issue 


M 


UI 


' AA' 


A2 


Unit Price 


M 


UPEC 


•999999.99* 


N9 


Quantity Def. 


M 


QTYDEF 


•999999* 


N 6 


Quantity Insp. 


M 


QTYINS 


• 999999* 


N 6 


Quantity Recvd 


M 


QTYREC 


• 9999991 


N6 


Qty in Stock 
Extended Price 


M 


QTYSTK 


• 999999* 


N6 


M 


E PRC 


• 999999999.99 


' N 1 2 


Crigin 


M 


ORG 


•XXX* 


A3 


Deficiency Ver 


M 


DEFV 


• A* 


A 1 


Deficiency Resp 


M 


DEFR 


•A* 


A 1 


Type Document 


a 


DCC 


.9. 


A 1 


Discovery Date 


M: DDATE 


*99999 • 


A5 


Date Rcva fm Org 


M: RDATE 


• 99999* 


A5 


Coen Date 


a: 


: OPEN 


• 99999 • 


A5 


Date Ltr Typed 
Screen Rpt Date 


M: 


: LDATE 


• 99 999 t 


A5 


M: SCFDAT 


• 99999' 


A 5 


Interim Resp Dat 


M : 


: I RDATE 


•99999* 


A5 


Date rtn fm IM 


a: 


: RIMDAT 


• 99999 • 


A5 


Close Date 


M: CLCSE 


•99999 . 


A 5 


ReoDen Date 


M 


: RECPEN 


• 99999* 


A 5 


Dates ccncat'ned 


3: DATES 


See note 1 


A46 


Date change ID 


3: 


: DATECI 


'X' See note 


2 A 1 



Report Control # M-.REPCON 
Document Number M:DCCNO 
FSCM M : FSCM 

Time Stamp M:TIME 

Analyst Code M:WHC 

New- Repair/Ovhl M : ITEM 
Date Mr g/Ovhl 3: OVER 
Opn Time-Failure M : OTF 
Govnment Furnish M:GCV 



See note 3 
See note 4 
' XXXXXX' 
•99999999999 
•XXXX ' 

'A' 

. gg 999 • 

. A9999 ' 

• X 1 



A 1 2 
A 1 4 
A6 
All 
A4 
A 1 
A5 
A 5 
A 1 



Kork Unit Code M:WUC 



'XXXXXXX' A 7 



t are 
"Data 
ement 
s the 
ID is 
char- 
The 
Data 
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Cs 



Discovery Code 


M: DIS 


• AA' 


A2 


Details section 


M : DETAILS 


•XX. . . 198. .X' 


A1 98 


Return Cede 


M: RETC 


'9 ' 


A 1 


Record Variable 


M: REC1 


• 99 999 A ' 


A6 


Contract Number 


M: NUM 


See note 5 


A 1 7 


Credit Cede 


M: CR 


'A' 


A 1 


Screening Cede 


M:SCR 


'XXX' 


A3 


Reply Section 


M: REPLY 


'XX. . 198. . X' 


A198 


Action Cede 


M : ACTTKN 


'AAA' 


A3 


Cost Code 


ti: CCSTC 


• A' 


A 1 


Status Cede 


M: STATUSC 


• AA' 


A2 


Cause Code 


M: CAUSEC 


• A' 


A1 


Action' Disp'n 


M: ACTDISP 


• A' 


A 1 


SMI C 


M: SM 


• AX' 


A2 


9Q Region Code 


M: 09Q 


'X' 


A 1 


Type refect 


M: DEF 


• 99' 


A 2 


Vender Liab Cods 


M: VLC 


• A' 


A1 


Action Point 


M : A CTPT 


' AXXXXX99999 • 


All 


Eart Number 


M: MFG 


'XX. .16. .XX' 


A 1 6 


Lot /ser/batch 


M: LCT 


' XXXXXXXXX • 


A 9 


NSN 


M: NSN 


See note 6 


A 1 3 


Type/Model/Ser 


0: MCEEL 


'XXXXXXX ' 


A7 


Cer Item Ser # 


0: DEFSER 


' XXXXXX' 


A6 


Higher Assy 


0: H ASSY 


'XXXXXXXXXX' 


A10 


Sub assembly 


0: SASSY 


'XXXXXXXXXXXX' 


A12 


Cef Item 


M: DITEM 


'XXXX 35 XXXX' 


A35 


Fst Ccrr Cost 


M.-CCCST 


'999999999.99 


N12 


Warranty 


M: WNTY 


' A' 


A1 


Screen Quantity 


M : SCBQTY 


• 999999' 


N6 



NOTES: 

1. All dates, followed bv M:DATECI, are concatenated 
the variable K : DATES ‘ for storage into the datab 
This is necessary to minimize the number of vari 
active in the CDR proararas, and due to the 32 
limit per database. 

2. This variable is the last field in M :DAT ES. V 

are either a blank, "N" f or "* "N" decicts a 
formed case that has net been accounted' for in 
statistics. A shows that a date was ch 

during a case update. These are blanked after st 

t cs ar^ c c n 1 g ^ • 

3. Report Control Number (RCN) • XXXXXX-99-99 99 • 

4. M : DOC NO PICTURE • XXXXXX-9999-9999 ' 

5. Contract number picture ' XXXXXX-9 9-A-9999-9 999 ' 

6. NSN (FSC+N ATO+FIIN) • 9999-XX-XXX-9999 • 
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APPENDIX D 
QDR PROGRAMS 

I. LOGON MODULE 59 

II. LOCKOUT 62 

III. MAIN PROCESSING MODULE 63 

IV. NEW CASE INPUT MODULE 66 

V. CASE UPDATE MODULE 82 

VI. CASE CLOSING MODULE 101 

VII. LATA BASE HANDIER MODULE 106 

VIII. SUPERVISOR MENU 127 

IX. SUPERVISOR UTILITY MENU 129 

X. USER REPORT MENU 132 

XI. SUPERVISOR REPORT MENU 134 

XII. QUERY MODULE 138 

XIII. STATISTICS GENERATION MODULE 158 

XIV. JULIAN DATE CONVERSION MODULE 163 

XV. CCG COUNT MODULE 164 

XVI. EI-WEEKLY STATISTICS REPORT MODULE 166 

XVII. MONTHLY STATISTICS REPORT MODULE 172 

XVIII. SORTED LISTING REPORT MENU 182 
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XIX. CASE REASIGNMENT MODULE 190 

XX. ITEM MANAGER FILE UPDATE 192 

XXI. CCG FILE UPDATE MODULE 197 

XXII. DATA BASE PACK MODULE 203 

XXIII. ANALYST FILE UPDATE MODULE 205 

XXIV. PASSWORD FILE UPDATE MODULE 210 

XXV. DATA BASE RE-INDEX MODULE 212 

XXVI. OPEN CASE REPORT 214 
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I. LOGON MODULE 



******* * ******* ************ ******************************** 



** ** 

** Date: 22 Nov 1 983 ** 

** Version: 1.0 ** 

** Module Name: LOGON ** 

** Module Purpose: Provide Password Logon Facilities ** 

** for the QDR System ** 

** ** 

** Module Interface Definition ** 

** Inputs: None ** 

** Outputs: C.-JULIAN, C:WHO ** 

** ** 

** Module Processing Narrative Description: ** 

** Accepts The Password From The ODerator, Val- ** 

** idates The Password, and Calls Ihe Necessary ** 

** Modules ** 

** ** 

** Superordinate Modules: None ** 

** Subordinate Modules: SUPMENU1, ME NU 1 , LOCKOUT ** 

** Author: R. G. NICHOLS ** 



*** *** # # ** # * * ** *3$c* * **#*#*£****#:$:#**## 



SET TALK OFF 

SET EELL CFF 

SET COLOR TO 112,3 

SET EXACT ON 

SET COLON OFF 

STORE T TO V:CONTINUE 

***** Accept ID of Person Logging On To The System 

DO WHILE V: CONTINUE 
ERASE 

STORE ' ' TO C:WHO 

a ) 10,29 SAY ‘ENTER YOUR ACCESS I.D.' 

5) 11,37 GET C :WHO 
READ 

STCRE ! ( C : WH 0) TO C:WHO 
IE C:WHO = 'QUIT' 

QUIT 

ENDIF 



***** Validate ID To See If A Valid User Is Legging On 

USE D :TECHCODE INDEX D: T ECH 
FIND SC: WHO 
DO WHILE # = 0 

a 13,28 SAY 'ACCESS I.D. NOT ON FILE' 
a 14,33 SAY 'PLEASE REENTER' 

STCRE ' ' TC C: WHO 

a 11,37 GET C: WHO 
READ 

STORE !(C:WHO) TO C:WHO 
IF C: WHO = 'QUIT' 

QUIT 

ENDIF 

FIND SC: WHO 
ENDDO 

STORE' F TO V: LOGGED 
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***** check To See If Previously Logged On 
IF LOGGED <> * ' 

3 16,28 SAY 'USER CURRENTLY LOGGED ON' 
3 17,32 SAY 'LOGON TERMINATED' 

3 23,0 SAY • ' 

STCRE T TO V: LOGGED 
ENEIF 



***** Allow Three Attempts to Enter The Correct Password 

IF • NCT. V: LOGGE D 

STORE 2 TO V: ATTEMPTS 
3 16,30 SAY 'ENTER YOUR PASSWORD* 

S 17,30 SAY ' FOLLOWED BY <CR>' 

SET CONSOLE OFF 
a 19, 35 SAY ' ' 

STCRE T TO V : T HUE 
DO WHILE V:TRUE 

STCRE • ' TC V:PSWD 

ACCENT to v*ffwd 

IF V: ATTEMPTS = 0 .AND. PSWD <> V:PSWD 
SET CONSCIE ON 

***** jf Three Unsuccessful Passwords Are Entered, Call 
***** p cr system Lockup Pregram 

DO C :LOC KCUT 
EL SE 

IF PSWD <> V :PS WD 

STORE V : ATTE MPT S- 1 TO V: ATTEMPTS 
a 21,27 SAY 'INCORRECT PASSWORD ENTERED' 
a 19,35 SAY ' '+ CHR (7) 

ELS E 

STORE F TO V:TRUE 
ENDIF 
ENDIF 
ENDDO 

SET CONSOLE ON 
REEL LOGGED WITH ' *' 

USE 

SET EXACT OFF 
RELEASE ALL LIKE V :* 



***** jf Either Supervisor is Logging On The System Call 
***** p cr supervisor Menu To Be Displayed Otherwise 
***** Display General User Menu 

IF C:WHO ='000C* .OR. C:WHO='0001‘ 

DO C: S U PMEN U 1 
FT ^F 

""DO C: ME NU 1 
ENEIF 



STORE T TO V : CONTINUE 



***** Allow The Logged User To Logoff 



USE D : TE C H CO D E 
FIND SC:WHC 
IF # = 0 
ERASE 

a 10,32 SAY 
a 11,27 SAY 
a 23, 26 SAY 
WAIT 
ELSE 

‘ REEL LOGGED 
USE 



INDEX D: TECH 



•LOG OFF FAILURE'+CHR (7) 
•CONTACT SYSTEM SUPERVISOR' 
'STRIKE ANY KEY TO CONTINUE 



WITH ' ' 



t 
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***** clear The Screen, Read The Clock And Display The 
***** Legged Off Message and The Time 



ER ASE 

STORE » " TC V: DUMMY 
POKE 61440, 180, 44, 205, 33, 

137, 14, 15, 240, 
SET CALL TO 61440 
CALL V: DUMMY 
STORE STR (PEEK (614 56) ,2) 



TO 

TO 

TO 



STORE STR (PEEK (614 55) ',2) 
STORE STR (PEEK]614 54) ,2 
IE $(V: HOUR , 1, T) =" » 

STORE "0 " +$ (V: HOUR, 2, 1) 
EN DIF 



137, 22, 
195 



HOUR 

MIN 

SEC 



TO VrHOUR 



IF S (V : MIN - 1,1) =" " 

STORE "0"+$ (V: MIN, 2, 1) TO V:MIN 
ENDIF 

IF $( V : SEC . 1,1) =" " 

STORE "0"+$ (V:S EC, 2, 1) TO V:SEC 
ENDIF 

STORE V : HOU E +" V :MIN+" : " + V: SEC TO M 
2 8,30 SAY 'LOG OFF COMPLETED AT' 

a) 10,36 SAY K : TIM E 
RELEASE ALL 
STORE T TO V : CONTI NUE 
ENDIF 
ENDIF 

3 22, 28 SAY 'PRESS ANY KEY TO CONTINUE ' 

WAIT 

USE 

ENDDC 



13, 240 



TIME 



***** NOTE: This Pregram Will Continue To Accept Logon 

***** Until The Quit Command Is Entered 



***** end OF PROGRAM 



II. LOCKOUT 



**** ******************************************************* 
** ** 

** Date: 22 Nov 1983 ** 

** Version: 1.0 ** 

** Module Name: LOCKOUT ** 

** Module Purpose: To Lock The System After An Illegal ** 

** Logon Attempt ** 

** ** 

** Module Interface Definition ** 

** Inputs: None ** 

** Outputs: None ** 

** ** 

** Module Processing Narrative Description: ** 

** This Program Will Display An Illegal Logon ** 

** Message and Will Sound The Buzzer " ** 

** ** 

** Superordinate Modules: LOGON ** 

** Subordinate Modules: None ** 

** Author: R. G. NICHOLS ** 

** ** 

^ 3$C3$C^[ ^ 5jt ^ 3$C 5{C ^ ^ ~^r 

SET TALK OFF 
SET CCLCE TC 4 ,4 
STORE T 10 V: CONTINUE 
STORE T TO V-.TOGGLE 

***** Clear The Screen and Display The Illegal Access 
***** Message 

ERASE 

DO WHILE V : CONT I NUE 
STORE 5 TO V: INNER 
DO WHILE V.-INNER > 0 
IF V : TOGG L E 

a 1 0 r 2 9 SAY ’ILLEGAL ACCESS ATTEMPT' 

2 2 1, 0 SAY ' ' + C HR (7) 

ELSE 

2 10,29 SAY ' • 

a 21, 0 SAY ' • 

END IF 

STORE V:I NN ER-1 TO V : I NN EE 
ENDDO 

IF V: TOGGLE 

STORE F TO V-.TOGGLE 
ELSE 

STORE T TO V: TOGGLE 
ENDIF 
ENDDO 

***** NOTE: The System Must Be Rebooted To Exit From 
***** An illegal Access Attempt 

***** end OF PROGRAM 
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III. MAIN PROCESSING MODULE 



**** * ****** *** ******************************* *** * * ** * ** ** ** 



** DATE: 15 NOVEMBER 1983 ** 

** VERSION: 1.0 ** 

** MODUIE NAME: MENU1 ** 

** MODUIE PURPOSE: PROVIDE THE USER A MENU OF ALL ** 

** PROCESSING OPTIONS AVAILABLE TO HIM/HER IN ** 

** THE Q DR SYSTEM. ** 

** MODUIE INTERFACE DEFINITION ** 

** INPUTS: C : WHO ** 

** OUTPUTS: C: JU IIAN ** 

** MODUIE PROCESSING NARRATIVE DESCRIPTION: ** 

** DISPLAYS AIL PROCESSING OPTIONS AVAILABLE TO ** 

** THE USER. UPON USEE SELECTION. CALLS THE ** 

** APPROPRIATE MODUIE FOR CONTINUED PROCESSING ** 

** ALLOWS USER TO EXIT FROM THE QDR SYSTEM. ** 

3fe2$e ^ 

** SUPERORDINAT E MODULES: LOGON ** 

** SUBORDINATE MODULES: OP EN , CLOSE , U PD AT , LTR , RPTME NU , ** 

** QU ERY ** 

** . AUTHOR: J.G. BOYNTON & R.G. NICHOLS ** 

** ** 



*### * * ***** *** * *** * * *^*#$** *** ******* ******** **** * * * * * * ** * * 



***** THIS SECTION ACCESSES THE SYSTEM DATE 



STORE TO V: DU M MY 

POKE 61440, 180,42, 205, 33, 137, 22, 13, 240, 137,; 

14, 15, 240. 195 
SET CALL TO 61440 
CALL V: DUMMY 



STORE PEEK ( 6 1454 
STORE PEEK (61453 
STORE PEEK (61456 



TO V:MM 
TO V:DD 

*256+PEEK (61455) -1900 TO V: YY 



***** THIS SECTION CONVERTS THE SYSTEM DATE TO A JULIAN DATE 
DO CASE 

CASE V: MM = 0 1 

STORE V: DD TO V :D AY 
CASE V : M M = 02 

STORE V: D D ♦ 3 1 TO V: DAY 
CASE V : M M = 03 

STORE V: DD + 59 TO V: DAY 
CASE V:MM = 0 4 

STORE V:DD + 90 TO V: DAY 
CASE V : M M = 05 

STORE V:DD + 120 TO V : DA Y 
CASE V:MM = 06 

STORE V:DD + 151 TO V : DA Y 
CASE V: MM = 07 

STORE V:DD + 181 TO V : DA Y 

CASE V:MM = 08 

STORE V: D D + 212 TO V : DA Y 
CASE V:MM = 09 

STORE V:DD + 243 TO V : DA Y 
CASE V: M M = 10 

STORE V:DD + 273 TO V : D A Y 

PAQTT' 1I.MM — 11 

STORE V: DD + 304 TO V : DA Y 
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p Acp V*MM = 1 ? 

STORE V: DD + 334 TO V : E A Y 
ENDCASE 

IF INT (Vr YY/4) *4 = V:YY .AND. V: D AY >= 60 
IF V : MM = 02 .AND. V:DD= 29 
STOFE V:D AY TO V :DAY 
EL SE 

STOFE V:DAY + 1 TO V: D AY 
ENEIF 
ENDIF 

STORE V: YY * 1000 + 17 : DA Y TO V:JULIAN 
STORE STR (V r JU L I AN , 5) TO CrJOLIAN 
RELEASE ALL EXCEPT C r* 

STORE T TO VrCONTINUE 
DO WHILE VrCONTINUE 
ERASE 

SET TALK OFF 

STORE ' ' TO Vr CHOICE 

TEXT 



WELCOME TO THE QDR AUTOMATED TRACKING SYSTEM 



1 - OPEN NEW RECORD 

2 - CLOSE RECORD 

3 - UPDATE RECORD 

4 - ORIGINATE LETTER 

5 - REPORT GENERATION 

6 - QUERY 

7 - EXIT FROM THE SYSTEM 



ENTER YOUR CHOICE 



ENDTEXT 

3 19,30 GET VrCHOICE 
READ 
•> 

iF VrCHOICE >= 1 .AND. VrCHOICE <= 7 



DO CASE 

CASE Vr CHOICE= 1 

RELEASE ALL EXCEPT Cr* 
DO C r XCPEN2. PRG 
CASE V r CHOI CE= 2 

RELEASE ALL EXCEPT Cr* 
DO C r CLCSREC. PRG 
CASE Vr CHOI CE= 3 

RELEASE ALL EXCEPT Cr* 
DO Cr XUPDAT.PRG 
CASE V r CHOI CE= 4 

RELEASE ALL EXCEPT Cr* 
DO CrLTB.PRG 
CASE Vr CHOICE= 5 

RELEASE ALL EXCEPT Cr* 
DO CrRPTMENU 
CASE V r CHOI CE=6 

RELEASE ALL EXCEPT Cr* 
DO C r QUERY. PRG 
CASE Vr CHO ICE = 7 

RELEASE ALL EXCEPT Cr* 
RETURN 

EN-ECASE 
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STOEE I TO V: CO NTINUE 
STOEE ' ' TO V: CHOICE 



ELS E 

a> 21,20 SAY • < PLEASE ANSWER WITH 1 - 7 

S 23,20 SAY ' < PRES S ANY KEY TO CONTINUED 
WAIT 

ENDIE <V:CHCICE> 

ENDDO <V : CONTINU E> 

***** OE OF PROGRAM 



ONLY >' 
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IV. NEW CASE INPUT MODULE 



** * * *********** * ** ***************************************** 



** ££ 

** DATE: 1 8 NOV 1 983 ** 

** VERSION: 1.0 ** 

** MODULE NAME : OPEN ** 

** MODULE PURPOSE: NEW QDR CASE CREATION ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C : WHO , C: JULIAN, V : JULDATE ** 

** OUTPUTS: M: CASE, V:MM, V:DD, V:YY, AND ALL OF THE ** 

** DATA ELEMENTS IN OPEN 1 AND OPEN2 . ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ** 

** PROMPTS THE USER FOR INPUT OF ALL DATA FROM ** 

** SF 368 IN CRDER TO CREATE A NEW QDR CASE. ** 

** VALIDATION CF DATA ITEMS OCCURS UPON INPUT AND ** 

** IS BASED UPCN CURRENT GE TIMESHARE VALIDATION, ** 

** AS MODIFIED BY FMSO TECHNICAL BRANCH. DATES ** 

** ARE CAPTURED FOR MANAGEMENT STATISTICS. ** 

3jC 3jf ^C3$C 

** SUPERORDINATE MODULES: MENU1 ** 

** SUBORDINATE MODULES: OJULIAN, XDBHNDLR ** 

** AUTHOR: J.G. BOYNTON ** 

** ** 



*** * * * $******** * ** * * * * * *** * ****************** ** * * ** 

STORE T TO C :T RU E 
DO WHILE 0 : TRU E 
ERASE 

STORE ' • TO 0: CHOICE 
TEXT 

***** OPEN NEW CASE ***** 



THIS PROGRAM ENABLES YOU TO OPEN A 
NEW QDR CASE 



1 - CONTINUE 

2 - RETURN TO MENU 

ENDTEXT 

a) 20,30 SAY ' • GET 0:CH0ICE 

READ 

DO WHILE C : C H 0 IC E <> • 1 • .AND. 0:CH0ICE <> *2' 
3 23,20 SAY 'ANSWER WITH A 1 OR 2 ONLY' 

3 20,30 SAY ' ' GET 0 .‘CHOICE 

READ 
ENDDO 
ERASE 

IF C : CHOICE = '2* 

RELEASE ALL EXCEPT C:* 

RETURN 

ENDIF 

***** INITIALIZE MEMORY VARIABLES 

STORE ' ' TO 0: KEY 
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STOEE 

STORE 

STOEE 

STORE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STORE 

STOEE 

STORE 

STOEE 

STORE 

STOEE 

STORE 

STOEE 

STORE 

STORE 

STORE 

STOEE 

STOEE 

STOEE 

STORE 

STOEE 

STOEE 

STOEE 

STORE 

STOEE 



'TO M : C AS E 
• TO Ms COG 
' TO M:SM 
' T 0 M : C AT 

' TC M:UIC 
0 TO MsQTYEEC 
0 TO M: QTYINS 
0 TO M: QTYEEF 
0 TO M: QTYSTK 



TO M: NOMEN 



TO M: NUM 



• TC M : OPE N 
' TC M : OVE R 

• TO M: REPCON 
' TC M : FS CM 

' TO M: TIME 

• TO M: MFG 
' TO M : LOT 

• TOM: ITEM 

' TC M: OTF 
' TC M:GCV 

' TO M : DOCNO 

' TO M : EEF 
' TOM: WNTY 

' TC 0 : DD ATE 
' TO 0: MODEL 
' TC 0 : DE ESER 

• TO 0 : HASS Y 
' TO OrSASSY 



***** THIS SEQUENCE CALCULATES THE UPPER AND LOWER 
***** FCE inpOt AND IS BASED ON THE CURRENT JULIAN 
***** c : JULIAN. 0 : LLIMIT= YEAR MINUS TWO YEARS 
***** o : ULI MIT = YEAR PLUS ONE YEAR 



STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
RELEASE 



$ (C: JULIAN, 1 .2) TO TEMPI 
VAL(TEMPI) TO TEMP 1 A 
VAI (' 2') TC LOW 
VAL ('1') TO HIGH 
TEMPI A-LOW TO ILMT 
TEMPI A+HIGH TO ULMT 
STB (LLMT , 2 ) TO ClLLIMIT 
STB (ULMT, 2) TO CtULIMIT 
E TEMPI, TEMPI A ,L0 



LOW, HIGH, LLMT, ULMT 



YEARS 

DATE 



***** START OF THE INPUT FOR THE NSN 



STORE ' ' TC 0 : FEATE 

STORE T TO 0: ANSWER 
DO WHILE 0: ANSWER 

a 5,20 SAY ********* ENTER DATA FOR THE NEW CASE ********* 
2 6,20 SAY ********* FROM SF 368 ********1 



STORE T TO 0: RD ATET 
EO WHILE 0: RDATET 

a 8,20 SAY 'DATE RECEIVED BY FMSO MMDDYY' ; 

GET 0: RDAT E PICTURE ' 999999' 



READ 

IF $ (OlRDATE, 1,2) <'01 ' 



.OR .$ (0: ED AT E, 3, 2) 
OR. S (0 :RD A IE, 5,2) 
OR. $ (0 :RDATE,5,2 
a) 2 3,30 SAY 



.OR. $ (0 : RD ATE, 1 ,2) 
<'01' .OR. $ (0: RDATE, 
< 0: LLI MIT ; 

> C : ULI MIT 
1) ATE OUT OF RANGE' 



ELSE 

.STORE F TO 0: RDATET 
ENDIF 

ENDDO <0 : RD ATE> 



>' 12 ' 
3,2) > 



'3 1'; 
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2 23,20 SAY ' 



t 



***** ENTER THE CALL TC C:0 JULIAN TO CHANGE MMDDYY TO 
***** JUIIAN FORMAT, STORE TO M : R DATE THEN RELEASE 0 : RD ATE 

STORE VAI ($ (0: RDATE, 1,2) ) TC V:MM 
STORE VAI ($ (0: RDATE, 3,2) ) TO V:DD 
STORE VAL ($ (0: RDATE, 5,2) ) TO V:YY 
DO C : C JUII A N 

STORE V : JUL EAT E TO H: RDATE 
RELEASE ALL LIKE V:* 

RELEASE C: R CATET 
STORE T TC C :C AT 
DO WHILE 0:CAT 

a 10 2 0 ^ A Y 'CAT* 

2 10^50 SAY ' ' GET M: CAT PICTURE *9* 

READ 

IF M: C AT = * 1 • .CR. M:CAT = *2* 

STORE F TO 0 :CAT 
ELSE 

a 23,20 SAY • 1 OR 2 ONLY* 

ENDIF 

ENDDO 0 : C AT 

2 23.20 SAY ' * 

RELEASE C: C AT 

STORE T TO C:C0G1 
STORE T TO C:COG2 
DO WHILE 0.-C0G1 .OR. C:COG2 
DC WHILE 0.-C0G1 

2 12,20 SAY 'COG* 

2 12,50 SAY * ' GET M:COG PICTURE *9X* 

READ 

• IF $ fM:COG, 2.1) = ' * 

2 23,20 SAY * NO BLANKS IN 2D POSITION* 

ELSE 

STORE F TO C :COG1 
STCRE ! (M:CCG) TO M:COG 
ENDIF 

ENDDO <0 :COG 1 > 

2 23,20 SAY * • 

***** CHECKS THAT COG IS VALID IN CURRENT COG TABLE... MUST 
***** BE VALID TO CONTINUE 

USE D:COG INDEX D:COGS 
FIND &M:COG 
IF # = 0 

2 23,10 SAY » COG INVALID - ENTER CORRECTED ENTRY* 
STORE T TO C : COG 1 
ELSE 

STORE F TO 0: COG2 
ENDIF 

ENDDO <0:C0G1 5 0:CCG2> 

RELEASE 0:C0G1, 0:CCG2 

2 23, 10 SAY ' ' 

2 14,20 SAY ' NS N ' 

2 14,50 SAY ' 'GET 0 : KE Y PICTURE * 9 99 9- XX-XXX-99 9 9 * 

READ 

STORE T TO OrNATOT 
DO WHILE C.-NATOT 

IF $ (0 : KEY ,5,1) =' ' .OR. $(0:KEY,6,1) = * * 

2 23,20 SAY * NATO CODE MAY NOT HAVE BLANKS* 

2 14,50 SAY * * GET 0: KEY PICTURE * 999 9- XX-XXX- 9 99 9* 

READ 
ELSE 
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a ) 23 ,20 SAY • 

STORE F TO 0: NATOT 
ENDIF 

ENDDC <0: N ATOT> 

RELEASE C:NATOT 
a 23,20 SAY • 

STORE T TO C : F 1 1 NT 
EO WHILE 0: FIINT 

IF $ (0: KEY, 7.1) = • » 

.CR. $ (0: KEY, 9,1) =' 
a 23,40 SAY • NC BLANKS 



$ (0: KEY, 8, 1) = • 



a) 14,50 SAY 1 ' GET 

READ 
ELSE 

a) 23,40 SAY ' 

STORE F TO 0: FIINT 
END IF FIINT 
ENDDC <C:FIINT> 

RELEASE 0: FIINT 
2 23,20 SAY ' 



OR. 

i 

IN THE FIRST 3 POSITIONS* 

0 : K EY PICTURE 1 999 9- X X- XXX- 9 99 9* 



' TOO; REPLY 



STORE * 

2 18,20 SAY 
2 19,20 SAY 
2 20,20 SAY 
2 22, 25 SAY 
a 23,40 SAY 
READ 

IF 0 ; REPLY 
STORE F 
ERASE 
2 23,20 
RELEASE 
ELSE 

IF 0: REPLY = 
RELEASE 
RETURN 

ELSE 

CLEAR GETS 
2 22 ,25 SAY 
2 23,25 SAY 
ENDIF 
END I F 

ENDDC 0 ; ANS WER 



VERIFY ABOVE INFORMATION ' 

YOU MAY NOT CHANGE IT AFTER THIS' 
WITHOUT STARTING OVER AGAIN* 

1 - CONTINUE 2 - CHANGE 3 - EXIT* 
' GET C:REPLY 



= • 1 • 

TO 0; ANSWER 

SAY 'SEARCHING 
0:RD ATE 



FOR ANOTHER CASE WITH THIS NS N' 



•3' 

ALL 



EXCEPT C :* 



STORE $ (0: KEY, 1 , 4) + $ (0 : KE Y , 6 , 2) + $ (0: KEY , 9 , 3) ; 

+ $ (0:KE Y , 13 , 4) TO M: KEY 
STORE M : KEY TO M ; NS N 

***** M :T YPE CODES TELL THE DBHANDLER WHAT TO DO WITH 
***** THE PARAMETERS 

STORE ' 1 A* TO M; TYPE 
DO C : XE3HNDLR. PRG 

***** CONTROL RETURNS TO THIS PROGRAM NOW 

***** I? m : TYPE = 9 THEN THERE IS NOT A CURRENTLY 

***** OPEN FILE 

IF M : TYPE= ' 9 ' 

STORE T TO 0 : ONO N E 
ELSE 

STORE F TO OtONONE 
STORE M-.REC1 TO 0 : PREVRE C 

STORE T TO 0; WHICH 
DC WHILE 0:WHICH 
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STCRE 'll' TO M : TYPE 
DO C: XDBHNDLR. PEG 



IF M : NSN <> M : KEY .OR. ECF 
STCRE 0 :PREVFEC TO M.-REC1 
STORE ' 1H ' TC M: TY PE 
DC C: XDBHNDIR. PRG 
STORE F TO C : WHICH 

***** THESE MUST BE RELEASED OR ELSE TOO MANY VARIABLES 
***** WILL ee ASSIGNED (IE >64) 

RELEASE M: UI ,M : UPRC, M :WUC, M: ACTDISP , M: ACTPT , ; 
M: DETAILS. M:DEFV,H :DEFR, ; 
M:09C,M:D0C,M:0RG 



STORE 


• 










+ 


1 


' TO M: DATES 




STCRE 


1 




' TO M: CLOSE 




STCRE 


1 




' TO M : UIC 




STORE 


• 




' TO M : F SC M 




STCRE 


• 






' TO M: N 


STCRE 


« 




' TO 


M : MFG 


STCRE 


• 




' TO M :REOPEN 




STORE 


9 




' TO 


M : DOCNO 


STCRE 


• 




' TO MlSCRDAT 




STORE 


• 




' TO 


M : REPCON 


STCRE 


1 




' TO M:TIME 


STORE 


0 


TO 


M: QTYIN S 




STCRE 


0 


TO 


H : QT YRE C 




STORE 


0 


TO 


M : QTYST K 




STCRE 


0 


TO 


M : QTYDEF 





ELSE 

STCRE M:REC1 TO 0:PREVREC 
ENEIF 

ENDDO <0 :WHICH> 

ENDIF <OPEN r IL E> 

STCRE M:CASE TO 0:CCASE 

***** save THE CASE EROM THE OPENFILE FOR FUTURE COMPARISCN 
***** go TO THE CLOSED DATA BASE AND CHECK FOR CASE WITH 
***** THAT NSN 

STORE ' 3 A ' TO MlTYPE 
DO C: XDBHNDLR. PRG 

***** CCNTROL RETURNS TO THIS PROGRAM 

***** IF m.-TYPE = 9 THEN THERE IS NOT A CASE IN THE CLOSED 

*** * * fixe 

IF M : TYP E= '9' 

STORE T TO 0: CNONE 
ELSE 

STCRE F TO 0: CNONE 
STORE M : REC 1 TO OrPREVREC 

STCRE T TO 0: WHICH 
DO WHILE 0: WHICH 

STCRE '31' TO K:TYPE 

DO C: XDBHNDLR. PRG 

STCRE M: REC1 TC OiPREVREC 

IF M : NSN <> M : KEY .OR. ECF 
STCRE 0 : P R E V EEC TO M.-REC1 
STORE ' 3H' TC MlTYPE 
' DC C: XDBHNDLR. PRG 
STORE F TO C : WHICH 
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***** THESE must be released of else too many variables 

***** WILL EE ASSIGNEE (IE >64) 

RELEASE M: UI.Mi UPRC, M i WUC, Mi ACTDISP, Mi ACTPT , ; 

Ml DETAILS, Mi EEFV,M iDEFR,Mi09Q,Mi DOC, ; 
MiORG,MlREPLY,M: ACTTKN,Mi STATUS C, ; 

M : C AUS EC, R ETC 



STORE 


f 










+ 


1 


• TO M.-DATES 




STORE 


f 




• TO M ‘.CLOSE 




STORE 


1 




* TO MiUIC 




STORE 


1 




• TO MiFSCM 




STORE 


f 






• TO M: N 


STORE 


f 




• TO 


Ml MFG 


STORE 


f 




• TO M IREOPEN 




STORE 


f 




• TO 


Ml DOCNO 


STORE 


f 




• TO MlSCRDAT 




STORE 


f 




• TO 


Ml REPCON 


STORE 


f 




• TO MlTIME 


STORE 


0 


TO 


MiQTYINS 




STORE 


0 


TO 


K IQTYREC 




STORE 


0 


TO 


MiQTYSTK 




STORE 


0 


TO 


MiQTYDEF 





ELSE 

STORE MiRECI TO 0:PREVREC 
ENEIF 

ENEDO <0 : WHICH> 

STORE MlCASE TO OiCCASE 
ENDIF <CLOS EFILE > 

***** COMPARE THE VALUES OF CASE NUMBER FROM OPEN AND 
***** CLOSE, AND USE THE LARGEST ONE FOR SUFFIX 
***** CALCULATION 

IF CiOCASE > OiCCASE 

STORE 0 : CC A S E TO MlCASE 
RELEASE 0: CC ASE , 0: 0 CAS E 
ELSE . 

STORE OiCCASE TO Ml CASE 
RELEASE 0: OCASE, OiCCASE 
ENDIF 

***** CNLY GO INTO THE NEXT IF-ENDIF WHERE THE NSN WAS NOT 
***** fCUND IN EITHER THE OPEN OR THE CLOSED FILE 

IF OiCNCNE .AND. OiCNCNE 

ELSE 

***** CALCULATE SUFFIX FOR THE ADDITIONAL CASE FOR THE NSN 

STORE $ (Mi CASE, 7, 1) TO OlLAST 
IF OlLAST = ' » 

STORE $(M:CASE,1, 6) + 'A' TO MlCASE 

ELSE 

STORE RAN K (OlLAST ) +1 TO OiSUFFIX 

STORE CHR (OiSUFFIX) TO Oi LETTER 
STORE $(MiCASE,1, 6) + 0 : LETTER TO MlCASE 

ENEIF 

ENDIF 



ENDIF 

RELEASE' Cl LAST ,OiLETTER,OlKEY,OiPREVREC, 0 1 ONONE , 0 i CN ON E ,0 I WHICH 
ERASE 
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***** START OF NEW CASE DATA ENTRY 



a 

a 

a 

a 

a 

a 



o, i 
1,2 

2,2 

3.2 

4 . 2 

5.2 



SAY 

SAY 

SAY 

SAY 

PICT 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

SAY 

SAY 

SAY 



a 1,38 SAY 

3 2,38 SAY 
CLEAR GETS 



'SF36 8' 



*5. 



NSN 
CATEGORY 
SMIC 
AX' 

UIC 

REECRT CONTROL 



a 6,2 
a 7,2 
a 8,2 
a 9,2 

a 10,2 
a 11,2 
a 12,2 
a 13,2 

a 14,2 

a 15,2 
a 16,2 
a 17,2 



URE 

' 1 A . 

•3. 

« . 

K:&EFCON EICTURE ' XXXXXX- 99- 9 99 9 ' 

•4. DATE DISCOVERED MMDDYY 
C: DD ATE PICTURE 'XXXXXX' 

'6. NOMENCLATURE 

ICNOMEN PICTURE ' XXXXXXXXXXXXXXXXXXX' 
'7. FSCM <0> 

M : FS C M PICTURE 'XXXXXX' 

MFG. PART NUMBER <0> 

PICTURE ' XXXXXXXXXXXXXXXXXX' 
SERIAL/LOT/BATCH <0> 

PICTURE ' XXXXXXXXX ' 

CONTRACT/PO <0> 

PICTURE ' XXXXXX-99-A-XXXX-XXXX 
DOCUMENT NUMBER <0> 



' 8 . 

M: MFG 

'9. 

M: LOT 

• 10 . 

M: NU M 

« 



M: DOC NO PICTURE ' XXXXXX-9999-9999 ' 



11 

M:ITEM 

• 12 . 

M-.OVER 

• 13 . 

M:OTF 

• 14 . 

M:GOV 

• 15. 

K: 

' 1 



N OR 0 



ITEM 

PICTURE ' A' 

DATE MFG/REP/O VHL 
PICTURE ' 99999 ' 

OPN TIME AT FAILURE 
PICTURE ' A XXX X* 

GOV FURNISHED MATL 
PICTURE ' X ' 

QTY: REC/INSP/DEF/STK 
TYREC EICTURE '999999' 

A 1 . TYPE/MODEL/SERIES 



' A2. SERIAL NUMBER 

1 B. NEXT HIGHER ASSY 
1 SUE-ASSEMBLY 

S ( M : KEY, 1.4) +'- '+$ (M: KEY, 
+ '-'+$ (M : KEY ,10 ,4) 

M : C AT 



< 0 > 

< 0 > 

< 0 > 

< 0 > 



< 0 > 

< 0 > 

< 0 > 

< 0 > 



GET Mi 
GET M: 



GET C: 
GET 0: 
GET 0: 
GET C 



5, 2) +'-' +$ 



STORE T TO CiCORRECT 
CO WHILE 0: CORRECT 

IF M : CCG = • 1 H • .OR. M:COG = '2H' .OR. M : COG = '7H' 

STORE T TO 0:SMIC1 
DC WHILE OiSMICl 

a 3,2 SAY • SMIC 

M :SM PICTURE 'AX' 

READ 

STCRE ! (M: SM) TO M : SM 

IF $ ( M : SM , 1 , 1) = 'X* .OR. $(M:SM,1,1) = 'L 1 

STORE F TO 0 :S MIC 1 

EL SE 

a 23,30 SAY 'X OR L ONLY' 

EN DIF 

ENDDC <C:S MIC1 > 

END IF 

RELEASE 0 : SMI C 1 

a 23,30 SAY ' ' 



STORE T TO C:UIC 1 
CO WHILE 0: UIC 1 

a 4,35 SAY ' 



' GET M:UIC PICTURE 'AXXXXX' 



SM ; 
UIC 



MCDEL 

DEFSER 

HASSY 

SASSY 

7,3); 



' GET ; 
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STCRE ! (M : U IC) TC M:UI C 
READ 
IF $<M: 

$ (M : 

$ (M: 
a 23 
ELSE 

STORE F TO 0 :UIC1 
ENDIF 

ENDDO <0:UIC1> 

51 23,20 SAY ' ' 

RELEASE C: UIC1 

***** RETORT CONTROL 

***** RETORT CONTROL NUMBER (RCN) FORMAT CHANGED DUE TO 
***** MSG FROM F MS 0 NCV83 

***** OLD* 'XXXXXX-XXXX-XXXX' NEW: • XXXXXX -9 9 - 99 9 9 ' 

GET M.’RETCON PICTURE ' XXX XXX - 9 9- 999 9* 



TC JULIAN FORMAT 2. NUMERIC DATA 



GET 0 : D D AT E PICTURE ' 999999' 



'MAY NOT BE BLANK ' 

IF $ (0 : D DATE , 1 , 2) < '01'. OR. $ (0 : D DAT E, 1 , 2) > ' 12 « ; 

.OR. $(0 : EE ATE, 3,2) < '01*; 

.OR. $ (0: EEATE, 3 ,2) > '31'; 

.OR. $ (0 : ED ATE, 5 ,2) < OiLLIMIT; 

.OR. $]0 : DDATE, 5 , 2) > 0: ULIMIT 

5) 23, 3C SAY ' DATE OUT OF RANGE' 

ELSE 

STORE F TO 0: DDATET 

ENDIF 

ENDIF 

ENDDC <0: DDATET > 

a 23,30 SAY ' • 

RELEASE C: DDATET 

***** C ALL CtOJULIAN TO CONVERT TO JULIAN DATE 

STORE VAI ($ (0: DDATE, 1,2) ) TO V:MM 

STORE VAI ($ (0: DDATE , 3,2) ) TO V:DD 

STORE VAI ($ (0: DDATE, 5,2) ) TO V:YY 

DO C : CJULIAN 

STORE V : JULDAT E TO M : ED ATE 
RELEASE ALL LIKE V:* 

STORE T TC C : NOM EN 
DO WHILE 0: NOMEN 

a 7.35 SAY ' 'GET M: NO MEN PICTURE ' XXXXXXXXXXXXXXXXXXX ' 
READ 

IF $ ( M : NOM EN, 1,1) = ' ' .OR. $ (M : NOMEN , 2 , 1 ) = ' ' ; 

.OR. $ (M:N0MEN,3,1) =' ' 

a 23,30 SAY ' NO BLANKS IN FIRST 3 POSITIONS' 

ELSE 

STORE F TO 0: NOMEN 
ENDIF 

ENDDO <0 : NO MEN> 

a) 23 .30 SAY ' ' 

RELEASE C.-NCMEN 

***** INPUT FSCM 



a) 5,35 SAY ' ' 
READ 

***** 1.TAKE DATE 

STORE T TO C:DDATET 
DO WHILE 0: DDATET 

a 6,35 SAY ' ' 
READ 

IF C: DDATE = ' 
2 23,30 SAY 



UIC,1,1) = ' ' .OR. $ (M:UIC, 2, 1) = ' '.OR.; 

UIC, 3,1) = • ' .OR. $ (M: UIC, 4 , 1 ) " ' ' .OF.; 
UIC , 5, 1 ) = ' ' .OR. $ (M: UIC, 6 ,1) = ' ' 

,20 SAY ' NO BLANKS ALLOWED IN UIC' 
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a 8,35 SAY ' ' GET M:FSCM PICTURE 'XXXXXX' 

***** INPUT MANUFACTURERS PART NUMBER 



S 9,35 SAY ' ' 
a 10,35 SAY ' ' 



GET M : MFG PICTURE ' XXXXXXXXXXXXXXXX ' 
GET M: LOT PICTURE ' XXXXXXXXX' 



***** INPUT contract number 

a 11,35 SAY ' ' GET M : NUM PICTURE ' XXXXXX-99- A-XXXX-XXXX' 

***** INPUT DOCUMENT NUMBER 



STORE T TO 0: UICT 
STORE T TO 0: PRE FT 
STORE T TO 0:D0CT 
DO WHILE C : DOCT .OR. 
a 12,35 SAY ' ' 

READ 

IF M: DCCNO = ' 

STORE F TO 0 
STORE F TO 0 : UICT 
ELSE 



C * U ICT 

GET M: DOCNO PICTURE ' AXX XXX - 9 999-9 99 9 ' 



EOCT 



IF $ (M: DOCNO , 1, 1) = ' ' .OR. $ (M : DOCNO , 2, 1 ) = 

.OR. S (M : ECCNO, 3 ,1) = ' ' : 

.OR. $ (M : DCCNO, 4 , 1) = ' *; 

.OR. $ (M : ECCNO, 5 , 1) = ' ' 

a 23,20 SAY ' NO BLANKS ALLOWED IN UIC' 
ELSE 

STORE F TC 0:D0CT 
END IF 

IF $ (M: DCCNO, 12,3) >' 366'; 

.OR. $ (M: ECCNO, 1 2,3) = ' ' : 

.OR. $?M: ECCNO, 1 1,4) = ' * 

a 23,50 SAY 'PREP DATE OUT OF RANGE ' 
ELSE 

STORE F TC 0:UICT 
END IF 

ENDIF <ALL EL AN KS> 

END DO <0 : DO CT .AND. C:UICT> 

RELEASE C: UICT ,0 :DOCT 
3 23,20 SAY ' 

***** DOCUMENT NUMBER END 

STORE T TO 0 : 1 T E M 
DO WHILE 0:ITEM 



GET M : ITEM PICTURE 'A' 

.OR. M : IT EM = 



— i 



a 13,35 SAY ' 

READ 

IF M: ITEM = 'N' .OR. M : ITEM = 'O' 

STORE F TO C : ITEM 

ELSE 

a 23,30 SAY ' USE N OR 0 ' 

ENDIF 

END DC <C :IT'EM> 

a 23.30 SAY ' ' 

RELEASE C: ITEM 
IF M : ITEM <> ' ' 

***** THE NEXT FIVE LINES CALCULATE EARLIEST YEAR TO ALLOW 
***** poR OVERHAUL ENTRY 

STORE $(C: JULIAN, 1,2) TO TEMPI 
STORE VAI (TEMPI) TO TEMPI A 
STORE VAL (' 10' ) TO LCW 
STORE TSKP1A-L0W TO TEMP2 
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STORE STR (T EMP 2,2) TC 0 : TEN YRS 
RELEASE TEMPI, TEMPI A.TEMP2, LOW 
STORE T TO 0:0VER 
DC WHILE 0 : OVER 

2 14,35 SAY ' ' GET M:OVER PICTURE *99999' 
READ 

IF M:OVER=' ' 

STORE F TC 0:0 VER 

ELS E 

IF $ ( M: 0 V ER, 3 , 3) > *365* ; 

.OR. $ (M:OVER, 1 ,2) < 0 : TENYRS ; 

•OR. $ ( M :OVER, 1,2) > 0:ULIMIT • 

2 23,30 SAY ' CATE OUT OF RANGE' 

ELS E 

STORE F TO 0:0VER 

ENDIF 
END IF 

ENDDC <0:0 VER> 

a 23 ,30 SAY ' ' 

ENDIF 

RELEASE C:OVER, 0:TENYRS 



STORE T TO 0:0TF 
DO WHILE 0 : CTF 

a 15,35 SAY ' ' GET M: 0 TF PICTURE 'A9999' 

READ 

IF M :0T F = ' ' 

STORE F TC 0 : CTF 
ELSE 

IF S (M: OTF, 1 , 1) = 'N' .OR. $ (M :OTF, 1,1) ='0'; 
. AND. $(M:OTF,2,4) > '0000 ' 

STORE F 

ELSE 

a 23,30 

ENDIF 
ENDIF 

ENDDO <0:0TF> 
a 23,30 SAY ' 

RELEASE C:OTF 
STORE T TO C:GOV 
DO WHILE 0: GO V 

a 16,35 SAY • • 

READ 

IF M:G0V = ' ' 

STORE F TO 

ELSE 

a 23,30 SAY 
ENDIF 

ENDDO <0:G0V> 

2 23,30 SAY ' 

RELEASE C : GOV 
STORE T TO C : QT Y RECT 
CO WHILE 0: QTYRECT 

2 17,35 SAY ' ' GET M iQTYREC FICTURE '999999' 

READ 

IF M : QT YREC < 0 .OR. M:QTYR EC > 999999 
a *3,30 SAY 'CUT OF RANGE' 

ELS E 

STORE F TO 0 : QT YR ECT 
ENDIF 
ENDDO 

3 23,30 SAY ' ' 

RELEASE C: QTYRECT 
STORE T TO C: QTY INS 
DO WHILE O.-QTYINS 

2 17,43 SAY '/' GET M:Q TYINS PICTURE ' 999999' 
READ 



TO 0:0TF 

SAY 'USE N OR 0 AND THEN TIME (A9999)' 



GET M: GOV PICTURE ' X' 

.OR. M:GOV = 'Y' .OR. M:GOV = 'N' 
C:GOV 

'USE EITHER Y OR N OR LEAVE BLANK' 
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IF M:QTYINS <0 .CR. M: QTYINS > 999999 
ELSE 



a) 



30 SAY * CUT OF RANGE' 



STORE F TOO: CTYINS 
ENDIF 

ENDDO <0 :QT YINS > 

a 23,30 SAY ' ' 

RELEASE C: QTYINS 
STORE T TO C: QT Y DEF 
DO WHILE 0 : QTYDEF 

a 17,50 SAY '/' GET M: QTYDEF PICTURE *999999' 
READ 

IF M-.QTYDEF < 1 .CR. M: QTYDEF > 999999 
a 2 3 r 30 SAY ' DEFICIENT- 
OUT CF FANGE' 

ELS E 

STORE F TO 0 : QTYDEF 
ENDIF 

ENDDO 0 : QTY DEF 
RELEASE C: QTYDEF 

a 23,30 SAY ' ' 

STORE T TO 0:QT Y STK 
DO WHILE OrQTYSTK 

a 17,57 SAY '/' 

READ 

IF M : QTYSTK < 0 

a 23 ,30 SAY ' IK STOCK 
OUT OF RANGE' 

ELSE 

STORE F TO 0: QTYSTK 
ENDIF 

ENDDO 0 : QTY STK 
a 23,30 SAY ' 

RELEASE CrQTYSTK 



GET M: QTYSTK 
.CR. M : QTYSTK 



PICTURE '999999* 
> 999999 



a 18,35 SAY 
READ 

a 19,35 SAY 
READ 

a 20,35 SAY 
READ 

a 21,35 SAY 



' GET CrMODEL PICTURE 'XXXXXXX' 

• GET CiDEFSER PICTURE ' XXXXXX* 

' GET C :H ASS Y PICTURE ' XXXXXXXXXX* 

' GET C.-SASSY PICTURE ' XXXXXXXXXXXX ' 



READ 

STORE 0: KODEL+O: DEFS EF+O :HASSY+ OiSASSY TO M: DITEM 
***** LECMPT USER FOR RESPONSE 



CHECK PREVIOUS ENTRIES 

2- MAKE 



STORE T TO C:END 
DO WHILE 0: END 

STORE • ' TC 0 : REPLY 
a 22,10 SAY ' ******* 

********* * 

a 23,10 SAY ' CHOOSE 1- CONTINUE ENTRY 
+' CORRECTIONS ' GET 0: REPLY 

READ 

IF CrREPLY <> '1' .AND. 0 : REPL Y <> *2' 

a 23,10 SAY ' ANSWER WITH A 1 OR 2 ONLY 

ELSE 

STORE F TO C :END 
ENDIF 

ENDDO <0:END> 

IF 0: REPLY = '2' 

STORE T TO 0 : CORE ECT 
a 22,10 SAY ' 
a 23,10 SAY ' 



ELSE 
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STORE F TO 0 ; CORRECT 
END IF 

ENDDC <C :CORRECT > 

ERASE 

RELEASE C: MODEL, 0: DEFSER,0: H AS SY , 0 : SASS Y , 0 : END,0 : COUNT 

***** E ERE IS THE COMPRESSION OF M: REPCON, M :NUM, M : DOCNO 

STORE $ (K: REPCON , 1,6)+$(M:R EPCON ,8,2) +$ (M: REPCON ,11,4) TO ; 
0: REPCON 

STORE C : RE P CON TO M:BEPCON 

STORE $ (M: NUM, 1,6)+$ (M: NUM, 8,2)+$ (M:NUM,11 , 1 ) +$ ( M : NO M , 1 3, 4) ; 

+ $ ( M : NUM, 1 8.4) TO 0:NUM 
STORE 0 : N U M TO M :NU M 

STORE $ (M: DOCNO, 1,6) +$ (M:D0CN0,8, 4) +$ (M ; DOCNO, 13, 4) TO ; 

0 : ECCNO 

STORE 0 : DOC NO TO M:DCCNO 
RELEASE C: REPCON, 0: NUM, 0:D0CN0 



***** CAPTURE THE JULIAN DATE AND PUT INTO OPENING DATE 



STORE C : JU L I AN TO M:OPEN 
STORE M :D D ATE+M :RD ATE+M : OP EN + ; 

+' N • TO M: DATES 

RE LEAS E M: DCATE,M; RD AT E, M: OPEN, 0: ACTPTT, 0 : PREP T, ; 
0: LLIMIT, 0 : ULIMIT 

***** THIS IS THE START OF THE SECOND SCREEN OF DATA ENTRY 



STORE ' ' TO M:UI 

STORE 0 TO M :U PRC 

STORE ' ' TO M : WUC 

STORE ' ' TO M : A CT D I S P 

STORE ' • TO M: A CTPT 

STORE ' 

+ * 

+ ' 1 TO M ; DETAILS 



» 

* 



STORE ' ' TO M: DEFV 

STORE • ' TO M: D EFR 

STORE ' ' TO H: DEF 

STORE ' ' TO M : 09Q 

STORE ' 'TOM: DOC 
STORE • • TO M :ORG 

STORE 0 TO M: CCOST 

STORE T TO C.-PAGE2 
CO WHILE 0: PAGE 2 

2 0,10 SAY ' UI ' ; 

GET M: UI 

2 1,10 SAY ' UNIT PRICE • GET M:UPRC PICTURE ; 

' 999999 .9 9' 

2 2,10 SAY '18. EST. CORRECTION COST <0> 'GET; 

M ; CCOST PICTURE '999999999.99' 

2 3,10 SAY '19. WARRANTY - Y/N/U 'GET; 

M : WNTY PICTURE ' A' 

a 4,10 SAY '20. WORK UNIT CODE <0> 'GET; 

M : wu c 

2 5,10 SAY '21. ACTICN/DIS POSITION -H/I/D/R/O <C> 'GET; 

M ; ACTDISP PICTURE ' X ' 

2 6,10 SAY '22. DETAILS OF DISCREPANCY - FIRST 2 ' 

2 7,10 SAY ' LETTERS MUST BE DISCOVERY CODE' 

3 8.10 SAY ' ' GET M ; DETAILS 

2 12,10 SAY ' 2 3 A . ACTION POINT '; 

GET M: ACTPT PICTURE ' AXXXXX 99 99 9 ' 

3 13,10 SAY ' DSEECT VERIFICATION CODE - N/O/U/Y <0>' ; 

GET M; DE FV PICTURE 'A' 

a 14,10 SAY ' DEE ECT RESPONSIBILITY - C/N/S/U/X <0>' ; 

• GET M; DE FR PICTURE ' A' 

2 15 , 10 SAY ' 9Q • ; 
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2 16,10 SAY 



GET M: 09 Q PICTURE ' X' 



ORIGIN CODE 



GET M: ORG PICTURE ' AAX ' 

3 17,10 SAY '30. TYPE DOC 

GET M: DOC PICTURE ' 9' 

2 18,10 SAY ' TYPE DEFICIENCY 

GET M: DE F PICTURE '99' 



CLEAR GETS 

STORE T TO 0: UI 
DO WHILE 0 : UI 

3 0,10 SAY ' 



UI 

• GET MsUI PICTURE 'AA' 



READ 

IF $ (M:UI, 1, 1) 



— i 



.OR. $ ( M : UI, 2, 1) = 



3 23 , 5o # SAY * NO BLANKS' 

E LS E 

STCRE F TO 0: UI 
ENDIF 

ENDDO 0 : UI 

3 23,30 SAY ' ' 

RELEASE 0: UI 

STCRE T TO C:EPRC 
STCRE T TO C : UPRC 
DO WHILE 0 : UPRC .OR. 0:EPRC 

DO WHILE 0: UPRC 

3 1,10 SAY ' UNIT PRICE ' GET; 

M: U PRC PICTURE '999999.99 ' 

READ 

IF M: UPRC < .01 .OR. M:UPRC > 999999.99 
2 23,30 SAY ' AMOUNT OUT OF RANGE ' 

EL S E 

STORE F TO 0 :UPRC 
ENDIF 

ENDDO <C:UPRC> 

3 23,30 SAY ' ' 

STORE (K.-UPRC * M ; QTYDEF) TO M : EPRC 

3 1 U? civ IPYT pPTf? 

3 1^54 SAY M; E PRC PICTURE '999999999.99' 

IF M: E P FC >= 1 00000000 

3 23,30 SAY ' EXTENDED PRICE OUT OF RANGE 

ELS E 

STCRE F TO 0 : EPRC 

ENDIF 

ENDDO <0: UPRC S 0: EPRC> 

RELEASE 0:U PEC,0:EPRC 
2 23. 30 SAY ' 

3 2,10 SAY '18. EST. CORRECTION COST ' 

+'<0> 'GET M: CCOST PICTURE '999999999.99 

READ 



STCRE T TO ClWNTY 
DO WHILE 0 : WNTY 

3 3,10 SAY '19. WARRANTY - Y/N/U 

' GET M : WNTY PICTURE 
STORE ! (M: WNTY ) TO M : W NT Y 
READ 

IF M: W NTY <> ' Y* .AND. M : WNTY <> »N' ; 

.AND. M : WNT Y <> 'U' 

3 23, 30 SAY ' USE Y,N OR U ' 

E LS E 

STCRE F TO 0: WNTY 

ENDIF 

ENDDO < 0: W NT Y> 

3 23,30 SAY ' ' 

RELEASE 0: WNTY 
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2 4,10 SAY ‘20. WORK UNIT CODE ; 

<0> ' GET M:WUC PICTURE 'XXXXXXX' 

STCRE T TO C : ACTDI SP 
DO WHILE 0 : ACTDISP 

2 5,10 SAY ‘21. ACTION/DISPOSITION '; 
+'-H/I/D/R/0 <0> • ; 

GET M: A CTDISP PICTURE 'X' 

READ 

IF M: ACTDISP = * H * OR. MlACTDISP = 'I* ; 

.OR. MlACTDISP = ' D ' . OR . M: ACTDISP = 'R' ; 

.OR. MlACTDISP = ‘O' .OR. M:ACTDISP =' ' 

STCRE F TO 0: ACTDISP 

ELSE 

2 23,30 SAY • ERROR IN CODE' 

END IF 

ENEDO <C:ACTEISP> 

2 23,30 SAY ' ' 

RELEASE 0: ACTDISP 

STORE T TO 0: DI SCODE 
CO WHILE 0 : DIS CCEE 

2 6,10 SAY '22. DETAILS OF DISCREPANCY - FIRST 2 ' 

2 7,10 SAY ' LETTERS MUST BE DISCOVERY CODE' 

2 8,10 SAY ' ' GET M : DET AILS 

READ 

STORE $ (M : DETAILS, 1 ,2) TO M:DIS 
STORE ! ( M: DIS) TO M :DIS 
USE D: W HER ED IS INDEX D:DISCODE 
FINE & M : DIS 
IF # = 0 

2 23,30 SAY 'WHERE DISCOVERED CODE INCORRECT' 

ELSE 

STORE F TO 0 :DISCODE 
ENDIF 

ENDDO <0 : EISCODE> 

2 23.30 SAY ' ' 

RELEASE 0 ; EISCOD E 

STORE T TO C : ACTPT 1 
DO WHILE 0 : ACTPTT 

2 12,10 SAY ' 2 3 A . ACTION POINT : 

• GET M: ACTPT PICTURE ' A XXXXX9 99 99 1 

READ 

IF M: ACTPT= ' ' 

2 23,30 SAY 'MAY NOT BE BLANK' 

ELS E 

STORE F TO 0: ACTPTT 
ENDIF 

ENDDO <0: ACTPTT> 

2 23,30 SAY ' ' 

STORE T TC O.-DEFV 
DO WHILE C.-DEFV 

2 13,10 SAY ' DEFECT VERIFICATION CCDE'; 

+ ' -N/O/U/Y <0>* GET MlDEFV PICTURE 'A' 

READ 

IF MlDEFV = 'N' .OR. MlDEFV = 'O' ; 

. OR . M: DEF V = ' U' ; 

.OR. M : DEF V= 'Y' .OR. M : DEFV = ' ' 

STORE F TO O.-DEFV 
ELSE 

2 23,30 SAY 'CORRECT CODE MUST BE ENTERED' 
ENDIF 

ENEDO <0: DEFV> 

2 23,30 SAY ' 

RELEASE 0: DEFV 
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STORE T TO C : DEFR 
DC WHILE 0 : CEFR 

a) 1 4, 1 0 SAY ' DEFECT RESPONSIBILITY 

♦'C/N/S/U/X <0>' GET M : DEFR PICTURE 'A 

READ 

IF M: DEFR = 'C' .OR. M : DEFR = 'N' ; 

.OR. M:DEFR = 'S' .OR. M : DEFR = 'U' ; 

.OR. M : DEFR = 'X' .OR. M : DEFR = ' ' 

STORE F TO 0: DEFR 

ELS E 

a) 2 3,30 SAY 'CORRECT CODE MUST BE ENTERED' 
END IF 

ENDDO <0: DEFR> 

3 23,30 SAY • • 

RELEASE O.-DEFR 



IF M:COG = ' 9C ' 

STORE T 10 0: 9 Q 
DO WHILE 0: 9Q 

a) 15,10 SAY ' 

+ • 

READ 

IF K:09Q = ' 2' . OR. 

.CR. M : 09Q ='5' 
.CR. M:09Q ='9' 
STORE F TO 0 : 9 Q 

ELS E 

2 23,30 SAY ' 
ENDIF 

ENDDO <C:9Q> 

3 23,30 SAY ' 



9Q 

' GET M : 09Q PICTURE 'X' 

M:09Q ='4' ; 

.OR. M : 09 Q ='7' ; 

OR. M:09Q =' ' 



OUT OF RANGE' 



RELEASE C: 9 



ENDIF < M: CO G 



i 9 § 



Q> 



ORIGIN CODE 

' GET M : ORG PICTURE 



A AX 



STORE T TO C:ORG 
DO WHILE 0 : CFG 

a 16,10 SAY ' 

+ • 

READ 

IF $ (M : CEG ,1,1) =' '.OR. $(M:0RG,2,1) = ' • 

a 23,20 SAY ' FIRST 2 POSITIONS MAY NOT'; 
+' CONTAIN BLANKS' 

EL SE 

STORE F TO 0 : ORG 
ENDIF 

ENDDO <0: 0 RG> 

2 23, 20 SAY • 

RELEASE 0 : ORG 



TYPE DOC 

' GET M : DOC PICTURE '9' 



STORE T TO C:TY?E 
DC WHILE 0 : TYPE 

a 1 7, 1 0 SAY '3 0. 

+ • 

REA D 

IF M: DOC < '1' .OR. M:DOC > '7' 

3 23,30 SAY 'OUT OF RANGE' 

ELS E 

STORE F TO 0: TYPE 
ENDIF 

ENDDO < C: T YPE> 

a 23,30 SAY ' • 

RELEASE 0: U IC ,0 ; UI C2 , 0: PREP,0: DOC , 0; SER NO , 0 : T Y PE 



STORE T TO C:DEF 
DO WHILE 0: DEF 

a 18,10 SAY ' 

+ ' 

d t? a n 

IF M; DEF < '01 ' 



TYPE DEFICIENCY ' 

' GET M ; DEF PICTURE '99' 

.OR. M ; D EF > '19' 
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19 ONLY' 



a) 2 3,30 SAY ' USE 0 1 - 

ELS E 

STORE F TO 0 : DEF 
END IF 

ENDDO <0: DEF> 

RELEASE 0 : DEF 
2 23,30 SAY ' 

***** eecMFT USEE FOE RESPONSE 

STORE T TO C : END 
DC WHILE 0: END 

STORE ' ' TO OiREPLY 

2 20,20 SAY ' 1 - POST CASE' 

a 21,20 SAY ' 2 - CHANGE DATA' 

a 22,20 SAY ' 3 - EXIT WITHOUT POSTING * 

a $+1,34 SAY ' ' GET 0 : REPLY 

READ 

IF OiREPLY <> '1* .AND. 0: REPLY <> '2' ; 

.AND. OiREPLY <> '3' 

a 23,5 SAY ' ANSWER WITH 1-2-3 ONLY ' 

ELSE 

STORE F TO OiEND 
END IF 

ENDDO <0:ENE> 

2 23, 1 0 SAY ' 

RELEAS E 0: ENE 

ERASE 

IF 0: REPLY = ' 1 ' 

2 10,20 SAY 'CASE BEING POSTED TO DATA BASE • 
a 13,20 SAY ' PLEASE STANDBY ' 

a 20,20 SAY '*** DO NOT INTERRUPT *** ' 

STORE F TO 0:P AGE2 
STORE ' IF' TO MiTYPE 
DO Ci X DEHNDLR. PRG 
STORE ' 2F' TO MiTYPE 
DO C: X DEHNDLR. PRG 

ERASE 

a 10,20 SAY ' CASE NUMBER OF THE NSW CASE' 
a 1 2 33 SAY MiCASE 

a 23*20 SAY ' * PRESS ANY KEY TO CONTINUE' 

WAIT 

ENCIF 

IF OiREPLY = '2' 

STORE T TO OiP AGE2 

PT 

IF Ci REPLY = * 3' 

STORE F TO 0 : PAGE2 
END IF 
EN DIF 

ENDDC <CiPAG E2> 

RELEASE ALL EXCEPT Ci* 

STCRE T TO OiTRUE 
ENDDO <0 i TRU E> 

RETURN 

***** ENE of PROGRAM 
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V . CASE UPDATE MOD ULE 



**************** ** * *** 30c^e=«e=0c ******* * ** ** aje ** * * * ************** 



3 ^ 5*5 

** CATE: 8 DECEMBER 1983 ** 

** VERSION : 1.0 ** 

** MODULE NAME: UPDATE ** 

** MODULE PURPOSE: ALLOW ADDITION AND/OR CORRECTION OF ** 

** LATA IN QDR CASE CURRENTLY IN QDR ** 

** SYSTEM. ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: CASE, C:WHO, C: JULIAN ** 

** OUTPUTS: ALL DATA ELEMENTS IN OPEN 1 5 OPEN 2 , ** 

** M:TYPE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ** 

** USER ENTERS CASE NUMEER OF CASE TO BE CHANGED. ** 

** MODULE SEARCHES DATA BASE FOR CASE AND ** 

** DISPLAYS INFORMATION CURRENTLY ON FILE THROUGH ** 

** A SERIES OF THREE MENUS. DATA IS WRITTEN TO ** 

** FIRST DATA BASE MIDWAY IN PROCESS DUE TO ** 

** LIMIT OF 64 MEMORY VARIABLES AT ANY ONE TIME. ** 

** CHANGE OF DATES IS NOTED FOR STATISTIC ** 

** MODULE UTILIZATION. ** 

3$C3$c 

** SUPERORDINATE MODULES: MENU1 ** 

** SUBORDINATE MODULES: XDEHNDLR ** 

** AUTHOR: J.G. BOYNTON ** 

** ** 



**** * ** ******** *** ********* ******************************** 

STORE T TO U : U P D AT E 
DO WHILE U: UPDATE 
STORE T TO U : T RU E 
DO WHILE U:TRUE 
ERASE 

STORE ' ‘TO U: CHOICE 
TEXT 

***** update ***** 



THIS PROGRAM ALLOWS YOU TO 
UPDATE A QDR CASE 



1 - CONTINUE 



2 - RETURN TO MENU 

ENDTEXT 

a 20,40 SAY ' ' GET U:CHOICE 

READ 

DO WHILE U : C H 0 IC E <> • 1' .AND. U:CHOICE <> »2» 
a 23,20 SAY 'ENTER 1 OR 2 FOR YOUR RESPONSE' 
2 20,40 SAY ' ' GET U: CHOICE 

READ 

END DO <U:CHOICE> 

ERASE 

IF U: CHOICE = '2' 

RELEASE ALL EXCEPT C:* 
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RETURN 

ENDIF 

ERASE 

STORE ' 'TO M: C AS E 

TEXT 

***** SELECT RECORD FOR UPDATE ***** 



ENTER THE CASE NUMBER 
OF THE RECORD TO BE UPDATED 



ENDTEXT 

STORE ' ' TC U: REPLY 

2 10, 29 SAY 'CASE ' GET M:CASE PICTURE '999999X' 

READ 

STORE M : C AS E TO M: KEY 
STORE 'IE' TO M:TYPE 
CO C : XEBENDLR 
IF M : T YPE = '9' 

2 12,25 SAY ' RECORD NOT FOUND IN OPEN FILE ' 

2 13,21 SAY 'DO YCU WISH TO CHECK THE CLOSED FILE ?' 

2 14,40 GET U:REPIY PICTURE 'A' 

READ 

DO WHILE ! (U : F.EPL Y) <> ' Y' .AND. !(U:REPLY) <> 'N' 

2 14,45 SAY ' ENTER Y OR N' 

2 14,40 GET U : REPLY PICTURE 'A' 

READ 

ENCDO 

2 14,45 SAY ' ' 

IF ! (UrRZPLY) = ' Y' 

STCRE ' 3E ' TO K :TYPE 
DO C : XDBH NDLR 
IF M: TYPE = ' 9 ' 

2 16,23 SAY 'RECORD NOT FOUND IN THE QDR SYSTEM' 
2 17,27 SAY 'STRIKE ANY KEY TO CONTINUE' 

WAIT TO U: REPLY 
ELSE 

IF K:T YP E = '1' 

2 18,28 SAY 'RECORD CURRENTLY IN USE' 

2 19,27 SAY 'STRIKE ANY KEY TO CONTINUE' 

WAIT TO U: REPLY 
ELSE 

ERA S E 

STORE F TC U :TRU E 
STORE 'CLOSE' TO U:FILE 
ENDIF 
ENDIF 
ENDIF 
ELSE 

IF M : T YP E = '1' 

2 12,28 SAY 'RECORD CURRENTLY IN USE' 

2 13,27 SAY 'STRIKE ANY KEY TO CONTINUE' 

2 14, 40 GET U: REPLY 
READ 
ELSE 

ERASE 

STCRE F TO U : TRUE 
STCRE 'OPEN' TC U:FILE 
ENDIF 
ENDIF 

ENDDO <U:TRUE> 

**** THIS SECTION FOR CURRENT DATES VALUE CAPTURE 
ERASE 

STORE $ (M: DATES ,1 , 5) TO M: DEATE 
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STOBE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



$ (M: DATES, 6, 5) 
$ (M: DATES, 11 ,5 



t - 



$ (M : DATES ,16, 5 
$ IM: DATES ,21 . 5 
$ (M : DATES ,26 
$ (M: DATES ,31 
$ (M: DATES, 36 
$ (M: DAT ES ,41 

M : DD ATE TO T 
M : RD ATE TO T 
M :OP EN TO T 
M: ID ATE TC T 
M tSCBDATE TO 
M : I R D AT E TO 
M : RIMDAT TO T : RIMDAT 
M :CICSE TO T : CIOS E 
M : REOPEN TO T : REOPEN 



TO M: RD ATE 
TO M : OPEN 
TO M :LD ATE 
TO M : SCRD ATE 
TO M :IRDATE 
TO M : RIMDAT 
TO M: CLOSE 
TO M .‘REOPEN 



: DDATE 
: EDATE 
: OPEN 
: ID AT E 
T.-SCRDATE 
T : IRD ATE 



***** THIS SEQUENCE CALCULATES THE UPPER AND LOWER 
***** iNEUT AND IS BASED ON THE CURRENT JULIAN DATE 
***** U : LLIMIT- YEAR MINUS TWO YEARS 
***** U : ULI MIT = YEAR PLUS ONE YEAR 



STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
RELEASE 
ERASE 



$ (C: JULIAN , 1 ,2) TO TEMPI 
VAI (TEMPI ) TO TEMPI A 
V A I ( ' 2') TO LOW 
VAI (' 1 ') TO HIGH 
TEMPI A-LOW TO ILMT 
TEMPI A+HIGH TO ULMT 
STB (LLMT , 2 ) TO 0: LLIMIT 
STB (ULMT, 2) TO UiULIMIT 

TEMPI, TEMPI A , LOW, HIGH, LLHT, ULMT 



2 

i 


3, 


2 


SAY ' 


DATES CURRENTLY IN 


FILE FOR 


CASE 


2 


3 , 


45 


SAY 


M: C AS E 






2 


8, 


** 

z 


SAY ' 


DISCOVERY DATE 




•GET 


a 


9 , 


2 


SAY ' 


RECEIVED FROM ORIGIN 


• GET 


2 


10, 


2 


SAY ' 


OPENING DATE 


* 


i 


a 


10, 


36 


SAY 


M : 0 PEN 






a) 


1 1 , 


2 


SAY ' 


TRANSMITTAL DATE 




•GET 


2 


12, 


2 


SAY ' 


SCREEN REPORT DATE 


•GET 


2 


13, 


2 


SAY ' 


INTERIM RESPONSE 


DATE 


• GET 


2 


1 4 , 


2 


SAY ' 


RETURN FROM ITEM 


MGR 


•GET 


a 


15, 


2 


SAY ' 


CLOSE 


* 


i 


2 


15 , 


36 


SAY 


M: CL OS E 






2 


16, 


z 


SAY ' 


REOPEN 




'GET 


2 


18 , 


2 


SAY ' 


<* MAY NOT CHANGE THESE DATES> 


i 


CLEAR 


GETS 









STORE ' ' TC U; REPLY 
STORE T TO U: DATET 
DO WHILE U : DAT ET 

STORE T TO U: DDATET 
DO WHILE U : DDATET 



5) 8,35 SAY ' * GET M: DDATE 

READ 

IF M : DDATE <> ' * 

IF $ (M: DDATE, 1,2) < 0: LLIMIT ; 

.OR. $ ( M: DDATE, 1, 2) > U-.ULIMIT; 

.OR. 3 ( M : DDATE, 3,3) <'001' ; 

.OR. $ ( M; DDATE, 3, 3) > '365'; 

.OR. M: DDATE > C: JULIAN 



YEARS FOR 



M: DDATE 
M: RDATE 



M : LD ATE 
M : SC RDATE 
M : IRDATE 
M: RIMDAT 



M : REOPEN 
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d 23,30 SAY 'DATE OUT OF RANGE' 

ELSE 

STORE F TO U: DD AT ET 

ENDIF 

ELSE 

STORE F TO U: DDATET 
ENDIF <EL ANK> 

ENDDO < U: DD ATET> 

5) 23,30 SAY ' ' 

STORE T TO UiRDATET 
DO WHILE U : EEATET 

a 9,35 SAY ' ' GET Ml RDATE 

READ 



(Mi 


RDATE 


, 1 <2) 


< 


U 


I LLIMIT 


• 

f 


OR. 


$1 


[Mi 


RDATE, 


1 


, 2] 


> 


Ul UL 


IMIT 


OR . 


$ 


’Mi 


RDATE, 


3 


,3 


< 


*001 * 


9 


OR. 


$1 


Mi 


RDATE, 


3 


,3 


> 


* 365 


f • 

f 


OR. 


Ml 


: RDATE > 


C 


I ji 


[JLI 


AN ; 




OR. 


Ml 


RDATE < 


M 


I DD AT 


T? . 

^ 9 




OR. 


M : 


:RDAT E >M 


« 

• 


OP 


SN 







3 23,30 SAY 'DATE OUT OF RANGE' 

ELSE 

STORE F TO U: RDATET 

ENDIF 

ENDDO < U: R D ATET> 

a 23,30 SAY ' ' 

RELEASE U: DDATET, U :RDATET 

STORE T TO UlLDATET 
DO WHILE U : LDATET 

a 11,35 SAY ' ' GET M : LDATE 

READ 

IF MiLDATE <> ' ' 

IF S (MiLDATE, 1,2) < U: LLI MIT ; 

.OR. $( MiLDATE, 1, 2) > UiULIMIT ; 

.OR. $( MiLDATE, 3 , 3 ) <'001* ; 

.OR. $ (MiLDATE, 3, 3 > * 365 * ; 

.OR. MiLDATE > C: JULIAN ; 

.OR. MiLDATE < MiOPEN 



a 23,30 SAY 'DATE OUT OF RANGE' 

ELSE 

STORE F TO UlLDATET 

ENDIF 

ELS E 

STORE F TO U: LDATET 

ENDIF 

ENDDO < U: LD ATET> 

a 23,30 SAY ' ' 

STORE T TO UlSCDATET 
DO WHILE UlSCDATET 

a 12,35 SAY ' ' GET MiSCRDATE 

READ 

IF MiSCRDATE <> ' ' 

IF $ (MiSCRDATE, 1 .2) < UiLLIMIT ; 

.OR. $( MiSCRDATE, 1 , 2) > UlULIMIT ; 

.OR. $ (MiSCRDATE, 3, 3) <*001* ; 

.OR. $( MiSCRDATE, 3, 2) > '365*1 

.OR. MiSCRDATE < MiLDATE 

a 23,30 SAY 'DATE OUT OF RANGE* 

ELSE 

STORE F TO UlSCDATET 
ENDIF 
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ELS E 

STORE F TO U : SC D AT ET 
END IF 

ENDDO < U: SC I ATET> 

3 23,30 SAY ' 

RELEASE Os LCATET, U : SCDATET 

STORE T TO U.-IRDATET 
DO WHILE U : IRDATET 

3 13,35 SAY ' ' GET M.-IRDATE 

READ 

IF M: I RE ATE <> ' ' 



IF $ (M : IRD ATE , 1 , 2) <U:LLIMIT ; 

.CR. $ ( M :IRDATS, 1,2) > U:ULIMIT; 

.CR. $ ( MrIRDATE, 3, 3) <'001' ; 

.OR. $ ( M : I RD ATE ,3,3) > '365'; 

.CR. M : IRD AT E < M-.OPEN 

a 23 , 30 SAY 'DATE OUT OF RANGE' 

ELS E 

STORE F TO U: IRDATET 
ENDIF 

ELSE 

STORE F TO UlIRDATET 
ENDIF 

ENDDO < U: I RE ATET> 

a 23, 30 SAY ' ' 

STORE T TO U: RIMD ATT 
DO WHILE U: RIMD ATT 

3 14,35 SAY ' ' GET M : RIMD AT 

READ 

IF KsRIMEAT <> ' ' 

IF $ (K: RIM DAT, 1 , 2) <U:LLIMIT ; 

.CR. $ ( M jRIMDAT, 1 ,2) > U.-ULIMIT; 
.CR. $ ( M:RIMDAT,3,3) <'001' ; 

.CR. $ 1 M:RIMDAT,3,3j > '365' 

a 23,30 SAY 'DATE OUT OF RANGE' 

ELSE 

IF M :RI MEAT < M ; L DATE 

a 23,30 SAY ' RTN DATE NOT '; 
+' BEFORE TRANSMITTAL DATE' 

ELSE 

STORE F TO U : RIMD ATT 

ENDIF 

ENDIF 

ELSE 

STORE F TO U : RIMDATT 
ENDIF 

ENDDO <U:RIMEATT> 

3 23, 30 SAY ' 



+ « « 

RELEASE U.-IRDATET, U:RIMDATT 



STCRE T TO U : REOP ENT 
DO WHILE U: REOPENT 



a 16,35 SAY ' 
READ 

IF M: RECPEN <> 



GET MiREOPEN 



IF $ (M: REOPEN, 1 ,2) <U:LLIMIT 



$ 

« 



.CR. 
.CR. 

.CR. $ 

2 23,30 



M.-REOPEN, 1 ,2) > UtULIMIT; 

M : R EOPEN ,3,3) <'001' ; 

M : REOPEN ,3,3) > '365' 

SAY 'DATE OUT OF RANGE' 



t • 
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ELSE 

IF M : RE OPEN < M:OPEN 

3 23,30 SAY ‘REOPEN DATE MAY NOT'; 

+* BE LESS THAN OPEN DATE !* 

ELSE 

STORE F TO OrREOPENT 
ENDIF 
EN DIF 

ELSE 

STOEE F TO UiREOPENT 
ENDIF 

ENDDO <0: RECPENT> 
a) 23,30 SAY * 

+ • • 



STORE T TO 0: END 
DO WHILE 0 : END 

a 21,10 SAY • ***** CHECK DATES ABOVE ***** » 

a 22,10 SAY ' <CHOCSE> 1- CONTINUE 2- CHANGE 3-EXIT' 
a 23,10 SAY ' ' GET U : R EPL Y PICTURE '9‘ 

READ 

IF U.-BEPLY <> ' 1 ' .AND. U :REPLY <> ' 2 ' . AND. U: REPLY <> * 3‘ 
a 22,10 SAY ' ANSWER WITH A 1-2-3 ONLY' 

ELSE 

STORE F TO U : END 
ENDIF 

ENDDO <U:END> 

3 21,10 SAY ' 

3 22,10 SAY ' 
a 23,10 SAY ' 

RELEASE U-.REOPENT ,U:END 



i 



t 



IF U: REPLY =' 1' 

STORE F TO U: EATET 
STORE T TO U : CCNT1 

IF M-.DDATE <> I: DDAT E .OR. M : R DATE <> T.-RDATE ; 

. CR. M :OPE N <> T : OPEN .OR . MiLDATE <> T : LD ATE ; 
.CR. M :SC RE ATE <> T: SCRDATE ; 

. CR. MlIRDATE <> T :IBDATE.OR. M: RIMD ATOT: RIMD AT ; 
.OR. M :CLOSE <> T:CLOSE .OR. MiREOPEN <>T:REOPEN 
STORE •*' TO M: DATECI 

ELSE 

STORE ‘ * TO M :DA TECI 
ENDIF 

RELEASE ALL LIKE T: * 

STORE M: DDATE + K: RDAT E+M .‘OPEN + M :LDATE+M : SCRDATE; 

+ M: IRDATE+M-.RI MD AT+ M : CLOSE* M : REOPEN* M: DAT ECI ; 
TO M: DATES 

RELEASE M :DD A TE,M:RD ATE. M: OPEN, H:LD ATE. M: SCRDATE,; 

M :IRD ATE , M: RIME AT, M: CLOS E, H : REOPEN, M : DAT EC I 



FT FF 

IF U.-REPLY = * 3 • 

STORE F TC U: DAT ET 
STORE F TC U ; CON T 1 
STORE F TC U : CON T2 
STORE F TC U : CON T3 
IF U.-FILE = 'OPEN' 

STORE '1G‘ TO MMYPE 

ELS E 

STORE ' 3G ' TO M:TYPE 
ENDIF 

DO C: XDBHNELR 
RELEASE ALL EXCEPT C:* 
BETURN 
ENDIF 



ENDIF 
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ENDDO < U : E A T ET > 
RELEASE 0: DATET f U: END 

ERASE 

CO WHILE 0: CONTI 



***** DISPLAY OF CASE DATA FROM FIRST DATABASE 



2 

2 



Cb 

2 

2 

2 

2 

2 

2 



2 SAY 
17 



42 

55 

67 

2 

4 

2 

2 



SAY 

SAY 

SAY 

SAY 



2 5 
2 6 
2 7 
2 8 



N S N : ' 

SAY $ fM:NSN, 1,4)+' 
+ $ (M: NSN,7, 3) ♦ 
'CAT ' GET M :CA 
'CASE NUNEER:' 

M : C AS E 
' COG 

PICTURE 'XX' 

1 SAY ' S M I C ' GET M: S 
SAY ' UIC 

SAY ' REPORT CO 

t • 

GET MlREPCON PICTURE 
SAY ' ACTION PO 

PICTURE ' AXXX XX99999 



-' + $ (M:NSN,5,2) + •-•; 
•-' + $ (M: NSN, 10,4) 

I 



2 10 
2 1 1 
2 12 
2 13 
2 14 
2 15 
2 16 
2 17 
2 18 
2 19 
2 20 
CLEA 



M PICTURE 'AX' 
NTROL 



• GET f 
' GET I 



2 9,2 



SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 



NOMENCLAT 
K: NOMEN PICTURE 
' F S CM 

M:FSCM PICTURE ' 
' CONTRACT 



' XXXXXX999999 ' 

I NT 

i 

URE . 

'XXXXXXXXXXXXXXXXXXX 1 

I . 

XXXXXX' 



' GET 1 

i . 



i . 



GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
2 SAY 
GET 
GETS 
STORE ' 
2 22,1 0 
2 23,30 
READ 



'XXXXXX99999999 • 
DEFICIENT 
•999999 • 

SSUE 



:NUM PICTURE ' XXXXXX99AXXXXXXXX 1 
DOCUMENT 

i . 

: DOC NO PICTURE 
QUANTITY 
: QT Y DEF PICTURE 
UNIT OF I 
:UI PICTURE 'XX 
UNIT PRIC 
:UPRC PICTURE • 

ORIGIN 

:ORG PICTURE 'X 
9 Q REGION 
:09Q PICTURE *X 
SCREEN QU 
: SCRQT Y PICTURE 
SCREEN CO 
: SC R PICTURE 'X 
TYPE DOCU 
:DOC PICTURE ' 

VENDOR LI 
: VLC PICTURE 'A 
CREDIT CO 
:CR PICTURE 'A' 

TYPE DEFE 
: DEF PICTURE '9 



999999.99* 

XX' 

CODE 

i 

ANTITY 
•999999 • 

DE 
XX ' 

MENT 

9' 

ABILITY CODE 

i 

DE 

CT 

9' 



' TO U 
SAY ' 
SAY ' 



: REPLY 
'GET U: R 



ENTER <N> TO SKIP ' 
EPLY 



IF ! (U : RE PL Y) = 'N' 

STCRE F TO UlFIRSTPG 

STORE F TO U : CONTI 

' STCRE T TO U-.CONT2 

IF U: F I LE = ' OPEN ' 



: COG ; 

: UIC 

: A CTPT ; 
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STOFE ' 1C TO M.-TYPE 

EL SE 

"STOBE ' 3C* TO M:TYPE 
ENDIF 

ELSE 

STORE T TO U:FIRSTPG 
ENDIF 

51 22, 1 0 SAY • 

a 23,10 SAY • ' 

***** SKIP FIRST PAGE OF UPDATE IF REPLY WAS <N> 

DO WHILE U: FIR S IPG 

STORE T TO 0 :CAT 
DO WHILE U : C AT 

3 1 r 4 2 SAY 'CAT ' GET M : C AT PICTURE '9' 

READ 

IF M : C AT ='1' .OR. M: CAT ='2' 

STORE F TO U: C AT 

E L SE 

3 23,20 SAY ' 1 OR 2 ONLY' 

ENDIF 

ENDDO U:CAT 

3 23,20 SAY ' 1 

RELEASE U: C AT 



STORE T TO U:C0G1 
STORE T TO U-.COG2 
DC WHILE U:CCG1 .OR. U:COG2 
DO WHILE U:C0G1 

3 2,35 SAY ' ' GET M:COG PICTURE '9X' 

READ 

STOEE ! (M: COG) TO M:COG 

TF 2/M‘CnG 9 1\ = • » 

3 23,'26 ’SAY • NO BLANKS IN 2D • ; 
♦ ' POSITION ' 

ELSE 

STORE F TO U:COGl 

ENDIF 

ENDDO < U : COG 1> 

3 23 ,20 SAY ' 



***** CHECKS THAT COG IS VALID IN CURRENT COG TABLE... MUST 
***** EE VALID TO CONTINUE 

USE EtCOG INDEX D:COGS 
FIND SM :CO G 
IF # = 0 

2 23,20 SAY ' COG INVALID - ENTER ' ; 

+ ' CORRECTED ENTRY' 

ELS E 

STORE F TO U:COG2 
ENDIF 

ENDDO < U: CO G 1 & U: COG2> 

RELEASE U:CCG1, U:COG2 

3 23,20 SAY ' • 



IF M: COG = ' 1H ' .OR. M:COG = '2H' .OR. M:COG = '7H' 

STORE I TO U : SMICl 
DO WHILE U :SM IC1 

3 2,45 SAY ' ' GET M;SM PICTURE 'AX' 

READ 

STORE !(M:SM) TO M:SM 

IF $(M:SM,1,1) = ' X' .OR.S (M;SM, 1 , 1) = 'L' 

STORE F TO UlSMICl 
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E ISE 

a 23 ,30 SAY 'X OR L ONLY' 
ENCIF 

ENDDO <U: SMIC 1 > 

ENDIF 

RELEASE U:SMIC1 

a) 23,30 SAY ' ' 

STORE T TO 0:UIC1 
DC WHILE U : UIC1 



a 3,35 SAY ' 
READ 


f 


GET 


M: UIC 


PICTURE ' AXX X XX ' 




IF $ (M: UIC, 1 


,1] 


i = 1 


' .OR. 


$ (M : UIC, 2, 1 j 


) = 


f 1 


.OR 


$ (M : U IC, 3 


,1 


= • 


' .OR. 


$ (M : UIC, 4, 1 


| = 


1 1 


.OR 


$ (M: UIC. 5 

a 23 , 

ELS E 

STORE F 


TO 


i = 1 


' .OR. 


$ ( M : UIC, 6,1 


| = 


« 1 




SAY ' NO 
U: UIC 1 


BLANKS ALLOW! 


ED 


IN 


UIC' 



ENDIF 

ENDDO < U: UIC 1> 

S 23,20 SAY ' ' 

RELEASE U: UIC1 

3 4,35 SAY ' ' GET M:REPCON PICTURE ' XXXXXX999 999' 
READ 

STORE T TO U : ACTPT T 
DO WHILE U: ACTPTT 

3 5,35 SAY ' 'GET M: ACTPT PICTURE ' A XXX XX 9 99 59 ' 
READ 

IF M:ACTPT = ' ' 

a 25,30 SAY 'MAY NOT BE BLANK' 

ELS E 

STORE F TO U: ACTPTT 
ENDIF 

ENDDO < U: ACIPTT> 

a 23,30 SAY ' ' 

STORE T TO U: NOMEN 
DO WHILE U : KCMEN 

a 6,35 SAY ' 'GET K: NOMEN PICTURE ; 

' XXXXXXXXXXXXXXXXXXX ' 

READ 

IF $ (M: KCMEN, 1,1) = ' ' ; 

.OR. $ (M:NOMEN,2,1) = ' '; 

.OR. $ ( M : NO MEN ,3 , 1) =' ' 

2 23,30 SAY ' NO BLANKS IN FIRST 3' ; 

+' POSITIONS' 

ELS E 

STORE F TO U: NOMEN 

ENDIF 

ENDDO < U: NO MEN> 

a 23,30 SAY ' ' 

RELEASE U: NCEEN 

***** INPUT FSCM 

2 7,35 SAY ' ' GET MrFSCM PICTURE 'XXXXXX' 

***** INPUT CONTRACT NUMBER 

a 8,35 SAY ' 'GET M : NU M PICTURE ' XXXX XX9 9 A XXXXX XX X' 

***** input document number 

STCRE T TO U : UICT 

STORE T TO U: PREPT 

STCRE T TO U: DCCT 

DO WHILE U :DOC I .OR. U:UICT 
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$ 



a) 9,3 5 SAY ' 'GET KiDOCNO PICTURE ' XXXXXX99999999' 
READ 

IF M: DOCNO = ' ' 

STORE F TO UlDOCT 
STORE F TO U:UICT 

EL SE 

IF $ (M : DCCNO, 1 , 1) = • • .OR.$ (M:DOCNO, 2, 1) = ' '; 

.OR . I (M : DO CNO ,3 , 1) * ' ' ; 

.OR. $ (M:DOCNO,4 , 1) = • ' ; 

.OR. $]M:DOCNO,5, 1) = ' ' 

2 23,20 SAY • NO BLANKS ALLOWED IN UIC' 

ELSE 



STORE F TO U : DOCT 

END IF 

IF $(M: DCCNO, 1 2,3) >'366' : 

.OR. $ (M : DO CNO, 12,3) = ' ' ; 

.OR. $ (M : DO CNO ,11,4) = ' ' 

a, 23, 50 SAY 'PREP DATE OUT OF RANGE ' 

ELSE 



STORE F TO U : UICT 
ENDIF 

END IF < AIL BLA NKS> 

ENDDO <U:DOCT .AND. U:UICT> 
RELEASE U: UICT, U: DOCT 
2 23,20 SAY ' 



i 



DOCUMENT NUMBER END 



STCRE T TO UlQTYDEF 
DO WHILE U : QTYDEF 

a 10,35 SAY ' ' GET M :QTYDEF PICTURE ' 999999' 

READ 

IF MrQTYDEF < 1 .OR. M :QTYDEF > 999999 

a 23,20 SAY ' DEFICIENT # OUT OF RANGE' 

ELSE 

STORE F TO U: CTYDEF 
ENDIF 

ENDDO U :QT YDEF 
RELEASE U : QTYDEF 

a 23, 25 SAY ' ' 



STCRE T TO U :UI 
DO WHILE U:UI 

a 11,35 SAY ' ' GET M:UI PICTURE 'AA' 

READ 

IF $ (M : UI, 1,1) = ' ' .OR. $ {M : UI , 2, 1 ) 

a 23,30 SAY ' NO BLANKS' 

ELSE 

ST CEE F TC U :UI 

ENDIF 

ENDDO U :UI 

3 23, 30 SAY ' • 

REIEASE U : U I 



i 



STCRE T TO U :EPRC 
STCRE T TO U:UPRC 
DO WHILE U : UPRC .OR. U:EPRC 
DO WHILE U:UPRC 

a 12,35 SAY ' 'GET MiUPRC PICTURE '999999.99' 
RE AD 

IF M:UFEC < .01 .OR. M:UPRC > 999999.99 
a 23,30 SAY ' AMOUNT OUT OF RANGE ' 

EL SE 

STCRE F TO U20PRC 
ENDIF 

ENDDC U : UPRC 

a 23,30 SAY ' • 

STORE ( M : UPRC * M : QTYDEF) TO MiEPRC 
STORE T TC UtEPRC 
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DO WHILE U.'EPRC 

S 12,50 SAY 'EXT PRICE S' 

a) 12,61 SAY M : EFRC PICTURE *999999999.99' 
IF M : EFRC >= 100000000 

3 23,30 SAY * EXTENDED PRICE OUT OF RANG 
E LS E 

STORE F TO UiEPRC 
END IF 

ENDDO <U : EFRC> 

ENDDO <U:UPRC & U:EFRC> 

RELEASE U: UPRC, U :EP RC 



STORE T TO U;ORG 
DO WHILE U: CEG 

3 13,35 SAY * 
READ 



ELS E 

STCFE 

END IF 

ENDDO <U:ORG> 

3 23, 20 SAY * 
RELEASE U : O FG 



GET M: OR G PICTURE 'AAX' 
OR, 

t ; 

+ ' CONTAIN BLANKS' 

F TO U :ORG 



IF $(M:CEG,1,1) =' '.OR. $ (M : ORG ,2,1) = ' ' 

3 23,20 SAY ' FIRST 2 POSITIONS MAY NOT' 



IF M: COG =' 9C ' 

STORE T TO U:9 Q 
DO WHILE U:9Q 

a 1 a, 35 SAY ' 
READ 

IF M;09Q = *2' 



GET M:09Q PICTURE 'X 



ELSE 

ENDIF 



.OR. M :09Q ='4* ; 

.OR. M:09Q ='5' .OR. M;09Q ='7'; 
.CR. M:09Q ='9' .OR. M:09Q =' ' 

- TQ U:9q 



STORE F 
a 23 ,30 SAY ' 



OUT OF RANGE' 



ENDDO <U:9Q> 
a 23,30 SAY • 
RELEASE U: 90 
ENDIF <M:COG = 9Q> 



a 15,35 SAY ' 
READ 



GET M : SCRQTY PICTURE '999999' 



a 16,35 SAY ' ' GET M:SCR PICTURE 'XXX' 
READ 

STORE T TO U: DOC 
DO WHILE U : DCC 

a 17,35 SAY ' ' GET M: DOC PICTURE '9' 

READ 

IF M: DOC < '1' .OP. M: DOC > '7* 

a 23,30 SAY ' 1 THROUGH 7 ONLY' 

ELSE 

STORE F TO U : DOC 
ENDIF 

ENDDO <U: DOC) 

3 23, 30 SAY ' 

RELEASE U;DCC 

a 18,35 SAY ' 

3 19,35 SAY ' 

a 20, 35 SAY ' 



GET M : VLC PICTURE 'A* 
GET M : CR PICTURE 'A' 
GET M : DEF PICTURE '99' 



READ 



STCRE T TO 0 : END 
DO WHILE U : END 

STORE ' ' TO D ; REPLY 

a ) 22,10 SAY '<CHOOSE> 1- CONTINUE 2- CHANGE'; 
♦ ' 3- EXIT' 

a) 23,30 SAY ' 'GET U ; R EPLY PICTURE '9' 

READ 

IF U: REPLY <> '1' .AND. U: REPLY <> '2' .AND.; 

U: REPLY <> '3' 

a) 23,10 SAY 'ANSWER WITH A 1 - 2 - 3 .CNLY ' 

ELSE 

STORE F TO U: END 
END IF 

ENDDO < U: EN D> 

a) 23,10 SAY ' • 

TF [1* RPPT Y = * 9 • 

STORE T TO U: F IRS TPG 

a) 22,10 SAY ' ' 

a) 23,10 SAY ' ' 

PT cp 

IF U; REPLY =' 3 ' 

STORE F TO U: FIRST PG 

STORE F TO U : CONTI 

STORE F TO U: CONT2 

-STORE F TO U : CONT3 

IF U:FILE = 'OPEN' 

STORE '1G' TO MlTYPE 

ELSE 

STORE ' 3G* TO M : T YP E 
EN D IF 

DO ClXDBHNBLR 
RELEASE ALL EXCEPT C:* 

RETURN 

ELSE 



STORE F TO U: FIRSTPG 
STORE T TO U : CONT2 
STORE F TO U : CONTI 
IF U : FILE = 'OPEN' 

STORE MC TO MlTYPE 

ELSE 

STORE ' 3C ' TO M: TYPE 
EN D IE 

END IF 
EN DIF 

ENDEO <U:FIRSTPG> 

ERASE 

RELEASE U:END,U: COUNT, U:FIRSTPG 

***** CHOICE ABOVE ALLOWS ANALYST TO ABANDON OR TO POST 
***** CHANGES MADE THUS FAR 

ENDDO <U : CO NT1 > 

RELEASE U : CCNT 1 

IF U : REPLY 0*3' 

2 10,20 SAY 'RECCED BEING PARTIALLY UPDATED' 
a) 13,20 SAY ' PLEASE STANDBY ' 



WRITE DATA TO CPEN1/CL0SE1 AND RELEASE UNNECESSARY 
VARIABLES BEFORE READING OPEN2/CLOSE2 FOR FURTHER 
UPDATE INFORMATION 



*** * * 
*** * * 
*** * * 
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DC C : XE EHNDL R 




M: FS CM , M :NUM,M: CP, B: SCR,M:SM 
RELEASE M: 09 Q, M : DEF, Mr V LC, M : ACTPT, SCRQTY, Mr DDATE 



IF U : FILE = ’OPEN* 

STOFE ' 2 E’ TC MrTYPE 

ELSE 

STORE * 4 E* TC MrTYPE 
ENDIF 

DC C : XE EHNDL R 
ENDIF 



DO WHILE U : CONT 2 



STORE $ 
STORE $ 
STORE $ 
STORE $ 
STORE * 



M : DITEM , 1,7) TO UrTYPE 
M : DITEM, 8,6) TO UrSERNO 
M: DITEM, 14, 1 0) TO 0 : HASS Y 
MrDITEM, 24, 1 2j TO UrSASSY 
* TO MrOVER 



***** DISFLAY FOR SECOND SCREEN OF UPDATE PROGRAM 



ERASE 



a 


1,2 


SAY * 


N S N : ' 






a 


1 ' 16 


SAY $(M:NSN,1,4)+* -*+$(M:NSN,5,2) + ' - 


.'+$ (Mr 1 


NSN, 7, 3) 






+ » 


- ' + $ (MrNSN, 1 0,4) 






a 


1,55 


SAY 'CASE NUMEERr* 






a 


1,67 


SAY MrCASE 






a 


2,2 


SAY * 


MFG. PART NUMBER 


' . GET 


M : MFG ; 






PICTURE 


' XXXXXXXXXXXXXXXX' 






a 


3,2 


SAY ’ 


SEEIAL/LOT/BATCH 


' GET 


MrLOT ; 






PICTURE 


'XXXXXXXXX' 






a 


4 , 2 


SAY ' 


ITEM N OR 0 


' GET 


M : ITEM; 






PICTURE 


’ A’ 






a 


5,2 


SAY ’ 


DATE MFG/REP/O VHL 


' GET 


MrOVER; 






PICTURE 


. 9999 9 » 






a 


6,2 


SAY * 


OPN TIMS AT FAILURE 


' GET 


MrOTF ; 






PICTURE 


* AXXXX* 






a 


7,2 


SAY * 


GOV FURNISHED MATL 


' GET 


M : GOV ; 






PICTURE 


’ A’ 






a 


CN 

% 

00 


SAY ' 


QUANTITY: REC V/IN SP/STK 


'GET 


M ; QT YREC 






PICTURE 


' 999999' 






a 


8,43 


SAY */' 


GET M : QTYINS PICTURE ' 999999' 






a 


8.50 


SAY '/' 


GET M : QTYSTK PICTURE *999999* 






a 


§,2 


SAY ' 


TYPE/MODEL/SERIES 


' GET 


U : T YP E 






PICTURE 


' XXXXXXX' 






a 


10,2 


SAY ' 


SERIAL NUMBER 


' GET 


UrSERNO 






PICTURE 


' XXXXXX' 






a 


1 1 ,2 


SAY ' 


NEXT HIGHER ASSY 


' GET 


UrHASSY 






PICTURE 


' XXXXXXXXXX' 






a 


12,2 


SAY ' 


SUE-ASSEMBLY 


' GET 


UrSASSY 






PICTURE 


' XXXXXXXXXXXX' 






a 


13,2 


SAY * 


ESTIMATED CORRECTION COST 


' GET 


MrCCOST 






PICTURE 


• 999999999.99' 






a 


14,2 


SAY * 


WORK UNIT CODE 


' GET 


M: WUC ; 






PICTURE 


' XXXXXXX ' 






a 


15,2 


SAY * 


DEFECT VERIF - N/O/U/Y 


' GET 


Mr DEFV; 






PICTURE 


' A' 






a 


16,2 


SAY * 


DEFECT RESP - C/N/S/U/X 


' GET 


MrDEFR 






PICTURE 


' A' 






a 


17,2 


SAY * 


STATUS CODE 


' GET 


• 

f 






MrSTATUSC PICTURE 'AA* 






a 


18,2 


SAY ' 


CAUSE CODE 


' GET 


• 






MrCAUSEC 


: PICTURE 'A' 






a 


19 , 2 


SAY ' 


ACTION/DI SP -H/I/D/R/O 


' GET 


• 

t 
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m ♦ ifTriT qp pTrTiiRu ivt 

2 2 0,2 SAY ' WARRANTY^ ' GET M : WNTY PICTURE 'A* 

a 20,19 SAY 'COST CODE ' GET MlCOSTC PICTURE 'A' 

2 20,30 SAY » ACTION CODE' GET MtACTTKN PICTURE 'AAA' 

S 21,2 SAY ' RETURN CODE ' GET MrRETC ; 

PICTURE '9' 

CLEAR GETS 

3 22,10 SAY ' ENTER <N> TO SKIP ' 

2 23,3 C SAY • • GET U: REPLY 

READ 

IF !(U:REPLY) = 'N' 

STORE F TO U : P AGE2 
STCRE F TO U : CO NT 2 
STORE T TO U:CONT3 

ELSE 

STORE T TO U:PAGE2 
ENDIF 

a 22, 1 0 SAY • ' 

a 23,10 SAY • • 

CO WHILE U: PAG E 2 



***** input MANUFACTURERS PART NUMBER 

a 2,35 SAY ' ' GET M: MFG PICTURE ' XXXXXXXXXXXXXXXXXX' 
2 3,35 SAY ' ' GET M: LOT PICTURE 'XXXXXXXXX' 

STCRE T TO UrITEM 
DO WHILE U : ITEM 

a 4,35 SAY ' ' GET M : ITEM PICTURE 'A' 

READ 

IF M: I T EM = 'N' .OR. M : ITEM = 'O' ; 

.OR. M: ITEM = ' ' 

STCRE F TO U: ITEM 

ELS E 

3 23,30 SAY ' USE N OR O ' 

ENDIF 

ENDDO <U : I T E M > 
a 23, 30 SAY ' 

RELEASE U : ITEM 
IF M: IT EM O' • 



***** TH E N eXT FIVE LINES CALCULATE EARLIEST YEAR TO ALLOW 
***** eOR OVERHAUL ENTRY 

STORE $ (C: JULIAN, 1 ,2) TO TEMPI 
STCRE VAL(TEKFI) TO TEMP1A 
STORE VAL('IO') TO LOW 
STCRE TEMPI 2-LOW TO TEMP2 
STORE STR (TEMP2 ,2) TO UrTENYRS 
RELEASE TEMPI, TEMPI A, TEMP2, LOW 

STORE T TO U:OVER 
DO WHILE U : OVER 

a 5,35 SAY ' ' GET M:OVER PICTURE '99999' 

READ 

IF $ (M : OVER , 3,3) > '365' ; 

.OR. $ (M;OV ER, 1, 2) < U: TEN YRS ; 

.OR. $ (MlOVER, 1,2) > U : U LIMIT 

a 23,30 SAY 'DATE OUT OF RANGE' 

ELSE 

STORE F TO U : OVER 

ENDIF 

ENDDO < U: O VEB> 

ENDIF 

RELEASE U: OVER, U:TENYRS 
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J 



GET Mr OTF PICTURE 'A9S9S' 



STORE T TO U :GTF 
DO WHILE U : CIF 

© 6,3 5 SAY • 

READ 

IF Mr OTF = * ' 

STOHZ F TO U: OTF 

ELS E 

IF $ (M : OTF ,1,1) = 'N' . OR. $ (MrOTF, 1 , 1) = 'C'; 

.AND. $ (M:OTF,2,4) > ' 0000' 

STORE F TO U: OTF 

ELSE 

© 2 3,30 SAY ' USE N OR 0 AND THEN 

TIME (A999 9) * 



END IF 

ENDIF 

ENDDO <U:OTF> 

© 23. 30 SAY • ' 

REIEASE U : OTF 

STORE T TO U : GO V 
DC WHILE U : GCV 

3 7,35 SAY ' ' GET MrGOV PICTURE 'A' 

READ 

IF Mr GOV = ' ' .OP. MrGOV = 'Y'.OR. M : GOV ='N' 

STORE F TO U :GOV 

ELSE 

a 23,30 SAY ' USE EITHER Y OR N' 

ENDIF 

ENDDO < U; GO V> 

3 23. 30 SAY • ' 

REIEASE U : GCV 

STORE T TO UrQTYRECT 
DO WHILE U : QTYRECT 

a 8,35 SAY ' ' GET MrQTYREC PICTURE ' 999999' 

READ 

IF MrQTYREC < 0 .OR. M : QTYREC > 999999 
a 23,30 SAY 'OUT OF RANGE' 

ELSE 

STORE F TO UrQTYRECT 
ENDIF 
ENDDO 

a 23, 30 SAY ' ' 

REIEASE UrQTYRECT 
STORE T TO OrQTYINS 
DO WHILE U r QTYINS 

a 8,43 SAY '/' GET Mr QTYINS PICTURE '999999' 
READ 

IF Mr QTYINS < 0 .OR. M r QTYINS > 999999 
a 23,30 SAY ' OUT OF RANGE' 

ELS E 

STORE F TO UrQTYINS 
ENDIF 

ENDDO <Ur QT YINS> 

a 23,30 SAY ' ' 

REIEASE UrQTYINS 

STORE T TO UrQTYST K 
DO WHILE U r QTYSTK 

a 8,50 SAY '/' GET M r QTYSTK PICTURE '999999' 
READ 

IF Mr QTYSTK < 0 .OR. M r QTYSTK > 999999 
a 23,30 SAY 'IN STOCK # OUT OF RANGE' 

ELSE 

STORE F TO Ur QTYSTK 
ENDIF 
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ENDDO U :<QTYSTK> 

3 23, 30 SAY ' ' 

RELEASE U:QT YSTK 

2 9,35 SAY » ' GET 0: TYPE PICTURE 'XXXXXXX' 

S 10,35 SAY * 1 GET UiSERNO PICTURE 'XXXXXX 1 . 

a 11,35 SAY ' * GET U : H ASS Y PICTURE 'XXXXXXXXXX' 

a 12,35 SAY ' • GET U'.SASSY PICTURE • XXX XXXXXX XX X ' 

READ 

STCRE U:TYPE+U:SERNO+U:HASSY+U:SASSY TO MlDITZB 

a 13,35 SAY • ' GET M:CCOST PICTURE •999999999.99’ 

READ 

a 14,35 SAY ' * GET B:WUC PICTURE 'XXXXXXX' 

READ 

a 15,35 SAY ' ' GET M : D E FV PICTURE 'A' 

STORE T TO U : DEFV 
DO WHILE U-.DEFV 

a 15,35 SAY ' • GET M: DEFV PICTURE 'A' 

READ 

IF M: DEFV = 'N' .OR. BtDEFV = 'O' : 

.OR. M : DEFV = *U' .OR. M : DEFV= J Y' ; 

.OR. M : DEFV = ' • 

STORE F TO U : DEFV 

ELSE 

a 23,30 SAY ' CORRECT CODE MUST BE ENTERED' 
END IF 

ENDDO <U:DEEV> 

2 23, 30 SAY ' ' 

RELEASE U.-DEFV 



STCRE T TO U:DEFR 
DO WHILE U : CEFR 

a 16,35 SAY ' ' GET M : DEFR PICTURE 'A' 

READ 

IF M: DEFR = 'C' .OR. M : DEFR = 'N' ; 

.OR. M : DEFR = 'S' .OR. M : DEFR = 'U' ; 

.OR. M : DEFR = 'X' .OR. M : DEFR = • • 

STORE F TO U : DEFR 

ELSE 

a 23,30 SAY 'CORRECT CODE MUST BE ENTERED' 
END IF 

ENDDO <U:DEFE> 
a 23, 30 SAY ' 

RELEASE U : D EER 



a 17,35 SAY ' ' 
READ 

a 18,35 SAY ' ' 
READ 

a 19,35 SAY ' ' 
READ 



GET MiSTATUSC PICTURE *AA' 
GET MlCAUSEC PICTURE 'A' 
GET M : ACTDIS P PICTURE 'X' 



STORE T TO U : WNTY 
DC WHILE U : WNTY 
a 20,2 SAY ' 

READ 

IF a: WNTY = ' Y ' 

OR. M : WNTY = 'U' 
STCRE F TO U.-WNTY 



WARRANTY 'GET M: WNTY 
.OR. a : WNTY = ' N ' : 
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ELSE a 23,30 SAY ’Y, U 08 a 0SLI ' 
endif 

I s 58? 30 SAY • 

RELEASE OjViKlY 



a 20,19 SAY ’COST CODE 



GET MiCOSTC PICTURE 



‘ A* 



2 501 3g SAY ’.ACTION code^get^acttk^pictuf 

RE AD* 



r l 



AAA' 



STORE T TO 0t2SD 
DC WHILE U : END 

STORE ’ ’ TO, U: E |cHOOSE> 1- CONTINUE 2- CHANGE’ 

| 22.10 SAY ; . <caoo?E> p i Y pictupe , 9 . 

SiSiV^OH’z’oHLI ’ 

ELSE STORE F TO OtEND 

endif ^ , 

ENDDO <U:END> 

2 23,05 SAY ’ 

IF ^STORE^T TO U:PAGE2 ’ 

S 2 2,10 SAY ’ 
a 2 3^10 SAY • 

ELSE p <xo U:CONT2 

STORE T TO U:CONT3 
STORE F TC U : P AG E2 

ENDIF 

Sffl.rr»>.0:sn«>. U :SASSY, HASSY .0 : END ,0: PAG E2 
ENDDO <U:CONT2> 

***** START OF THE THIRD SCREEN FOR THE UPDATE PROGRAH 
E DO S «HIIE U :CONT 3 

***** DISPLAY of CASE DATA ERCH OPEN2 DETAILS 0 REPEY 



a 

a 

a 

a 

a 

a 

a 



1,2 SAY 1 
l',l7 SAY 



« /m-NSN N T 4) + *-* ♦ $ (M:NSN, 5,2) J* ; 

1 SS SAY ’CASE NUMBER. 

if 11 ^^sS'-raB^sarcgDif” 1 ” 

- 111? SAY : R - p |P F «6“ E i|IS S HANAGER’ 

I \ l'Ao III ’ ? get hiheply 

CLEAR GETS 



store ’ s»y°’ U:BE enter <N> TO skip 
1 Si; 30 I AY • ’GET U: REPLY 



& UPDATE RECORD’ 
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IF ! (0 : REPLY) = ' N ' 

STORE F TO U: PAGE 3 
STORE F TO U:CCNT3 

ELSE 

"store T TO U:PAGE3 
ENDIF 

2 22, 10 SAY • * ; 

+ • ' 

***** SKIP THIRD page of update if reply was <n> 

DC WHILE U: PAGE3 

STORE T TO U: CIS CODE 
DO WHILE U : DISCODE 

2 8,10 SAY ' ' GET M : DETAILS 
READ 

STORE $ (HlDETAILS, 1 ,2) TO M:DIS 
USE D: WHEREDIS INDEX D: DISCODE 
FIND &M : CIS 
IF # = C 

2 23,30 SAY 'WHERE DISCOVERED CODE INCORRECT' 
EL S E 

STORE F TO U: DISCODE 

ENDIF 

END CO <U :DI S CCDE> 

2 2 3,30 SAY ' ' 

RELEASE U : DISCODE 

2 14,10 SAY ' ' GET MiREPLY 
READ 

STORE T TO U : END 
DO WHILE U : END 

STORE ' ' TO U: REPLY 

2 21,10 SAY » ******* CHECK PREVIOUS'; 

+ ' ENTRIES ******* « 

2 22,10 SAY ' <CHOOSE> 1- CONTINUE '; 

+ ' 2 - CHANGE ' 

2 23,35 SAY ' ' GET U; REPLY 
READ 

IF U: REPLY <> '1' .AND. U: REPLY <> '2' 

2 23,10 SAY ' ANSWER WITH A 1 OR 2 ONLY' 

ELS E 

STORE F TO U .‘END 
ENDIF 

ENDDC <U : END> 

2 23, 1 0 SAY • • 

IF U: REPLY = '2' 

STORE T TO U: P AGE3 

2 2 2,10 SAY ' ' 

2 23, 10 SAY ' • 

ELSE 

STORE F TO U: P AGE3 

STORE F TO U:CONT3 

ENDIF 

ENDEO <U: P AGE3 > 

RELEASE U; PAGE3 ,U: COUNT 
ERASE 

ENDDO <U:CONT3> 

IF U : REPLY <> '3' 

2 10.20 SAY 'YOUR CASE IS BEING UPDATED NOW' 

2 $+2,20 SAY ' PLEASE STANDBY ' 

ENDIF 

IF U : REPLY <> '3' 

IE U: FILE * 'OPEN' 

STORE ' 2C' TO M:TYPE 
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EL SE 

STORE *4C» TO M : T YP 
ZNDIF 

DC C: X DEHNDL5 
ENDIF 

RELEASE U:CO NT3 , U .‘REPLY, U : END 
RELEASE ALL EXCEPT C:* 

STORE T TO U.-UPDATE 
ENDDO <0 :UPDATE> 

RETURN 

***** END CF PROGRAM 
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71. CASE CLOSING MODULE 



*********** *** ******************************* *** * 



*$ ** 

** Date: 18 December 1984 ** 

** Version : 1 . 0 ** 

** Module Name: CLOSEEC ** 

** Module Purpose: Close Current Case ** 

** Module Interface Definition ** 

** Inputs: C:WHO, C: JULIAN ** 

** Outputs: None ** 

** Module Processing Narrative Description: ** 

** ** 

** Prompts the Analyst for the desired closing date ** 

** to assign to the case and then for the case ** 

** number. The database is searched and ** 

** reads current values. Insures that there are ** 

** transmittal and return dates assigned. If net ** 

** then the case must be updated before closing. ** 

** If dates are present, the credit code and vendor ** 

** liability codes must be entered in response to ** 

** the prompts. The case is then written to the ** 

** CL0SE1 and CLCSE2 Databases and is marked for ** 

** deletion in the OPE N 1 and 0PEN2 . ** 

££ 

** Superordinate Modules: MENU1 ** 

** Subordinate Modules: XDEHNDLR ** 

** Author: J.G. BOYNTON ** 

• ** 



*************************************************** * * ** ** ** 



ERASE 

STORE T TO CL: CL OSE 
DO WHIIE CL :CLOS E 
TEXT 

***** CLOSE CASE ***** 



This program enables you to 
CLOSE A QDR CASE 



1 - Continue 

2 - Return to Menu 



ENDTEXT 

STORE ' ' TO CL : EEPLY 

3 20,38 SAY ' ' GET CL: REPLY 
READ 

DO WHILE CL: REPLY <> ' 1 • .AND. CL : REPLY <> *2* 

a 23,20 SAY • ANSWER WITH A 1 OR 2 ONLY* 

3 20,38 SAY • • GET CL: REPLY 

READ 

ENDDC <CL: RE PLY > 

ERASE 

IF CL: REPLY = ' 2 ' 

RELEASE ALL EXCEPT C:* 
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RETURN 



ENDIF 

STORE ’ ’ TC LC: CL DATE 

STORE 1 * TC M: CASE 

STORE * ' TO CL: VIC 

STORE * 1 TC CL : CS 

a) 10,25 SAY ****** CLOSE CASE ****** 
STORE T TO CIrDATET 
DO WHILE CL: EATET 



a 14,26 SAY ' CL 

GE 

READ 

IF LC: CLE ATE = 
RELEASE AL 
RETURN 

ENDIF 

STORE S (IC: CLDA 
STORE VAI (CL:TE 
STORE ST5 (CL : LO 



OSING DATE 
T LC : CLD ATE 

i i 

L EXCEPT C:* 



MMDDYY 



TE, 5 , 2) TO C L : T E MP 1 
MP 1 ) - 1 TO CL : LO WDATE 
WE ATE , 2) TO CL : LDATE 



IF 



$ (LC 

. OR. 
. OR. 
. OR. 
. OR. 



CLDATE, 
$ (IC.-CL 
$ (LC:CL 
$ (LC :CL 
J (LC :CL 



1 , 2 ) <' 01 ' 
EATE, 1,2 
DATE, 3,2 
DATE, 3,2 
DATE, 5,2 



> ' 12 ' ; 

<’ 01 * ; 

> *31*; 

>$(C: JULIAN, 1 , 2) 



3 23,30 

ELSE 

STORE F TO 
ENDIF 

ENDDO <CL:DATET> 

2 23,30 SAY ' 
RELEASE CL : D ATET,CL 



SAY ' DATE OUT OF RANGE' 
CL: DATET 

i 

: LDATE, CL: LO WDATE, CL: TEMPI 



STORE T TO CL : M C B E 
DO WHILE CL :MOR E 



a 10,25 
a 14,26 



CLEAR 



SAY 
SAY 
GET 
GETS 



i ***** CLOSE 
'CLOSING DATE 
LC :CLDATE 



CASE ***** 
MMDDYY ': 



SE NUMBER 
ASE PICTURE 



STORE T TO CLrREPLY 
EO WHILE CL : REPLY 
a 15,26 SAY 'CA 
GET M: C 

READ 

USE D: OPEN1 INDEX D:OCASE1 
FIND SM : CASE 
IF # = 0 

STORE ' ' 

3 20,22 SA 
3 22,18 SA 



999999 XI 



ELSE 



a 23,33 SA 
READ 

IF CL: AGAI 
RELEASE 
RETURN 
ENDIE 



TO CL: AGAIN 

Y ' That Case Not In Op 

Y ' 1 -To Try Again 2-To 
+' To Menu' 

Y ' ' GET CL: AGAIN 






N <> '1' 

ALL EXCEPT C:* 



IF .NOT. * 

STORE F TO CL : REPLY 
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Cd(0 
id » 



STORE T TO CL: FILL ED 

ENDIF 
IF * 

STORE * ' TO CL: AGAIN 

a 20,22 SAY ' That CASE Already’; 

+ i nneh’D* 

3 22,22 SAY ' 1-To Try Again 2-To 
+ * Re turn To Menu* 

2 23,33 SAY ' ' GET CL: AGAIN 

READ 

IF CL: AGAINO' 1* 

RELEASE ALL EXCEPT C:* 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ENEDO <CL : R EELY> 

3 20, 22 SAY • « 

+ ' ' 

3 22, 1 8 SAY * ' 

+ ’ ' ♦ 

3 23, 33 SAY ' * 

+ ' ' 



***** GO TO THE OPEN CASE FILE 
***** AN £ CREDIT CODE 

STORE M :C AS E TO H: KEY 
STCRE ' IE' TC M :TY PE 
DO C: X DBHND IB 



AND READ THE CURRENT VLC 



*** * * 



STCRE 

STORE 

STCRE 

STCRE 

STORE 

STCRE 

STORE 

STCRE 

STORE 



(M 

- M 
$ M 
$ (H 
$ (M 
$ 



$ 



,1, 5) 

\m 



(M 

(M 

M 

(M 



DATES 
DATES 
DATES 
D ATES *, 1 6 
DATES, 21 
DATES, 26 ,5 
DATES, 31 ,5 
DATES, 36 ,5 
DATES, 41 ,5 



'5 



TO M: DDAT E 
TO M: RD AT E 
TO M : 0 P E N 
M :LDATE 
M : SCRD ATE 
M : IRDATE 
M:RIMD AT 
M : CLOSE 
M : REOPEN 



TO 

TO 

TO 

TO 

TO 

TO 



' .OR. 



IF M.-RDATE = ' '.OR. M:OPEN=' 

M :LDATE = ' '.OR. M : RIMDAT = ' 

3 20,20 SAY 'Key Dat e/ Dates Are Hissing.' 
+ ' CASE may NOT* 

3 21,20 SAY 'Be Closed Until Update Is '; 
♦ ' Ac ccmplished ' 

3 23,20 SAY * Press Any Key To Continue* 
WAIT 
E RAS E 

3 10,25 SAY ****** Please Standby ****** 



ENDIF 



STORE *1G' TO M:TYPE 
DO C : XEBHNDL R 
STORE F TO CL.-FILLED 



IF THE CASE IS COMPLETE AND READY TO BE CLOSED 

IF CL: FILLED 

STORE T TO CL : VLCT 
DO WHILE CL : VLCT 



3 16,26 SAY 
GET 

READ 

IF Cl: VLC = ' 



'VENDOR LIABILITY CODE 
CL: VLC PICTURE 'A' 
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a 23,3 0 SAY 'VENDOR CODE MAY NOT 
+ ' BE BLANK * 

ELSE 

STORE F TO CL: VLCT 
ENDIF 

ENDDO <CL : VLCT > 

3 2 3,30 SAY ' 

+ • • 

RELEASE CL: VLCT 

STORE T TO CL: CRT 
DO WHILE CL ;CR T 

3 17,26 SAY 'CREDIT CODE ' 

GET CL : CR 

READ 

IF CL:CR = • • 

3 23,30 SAY • CREDIT CODE MAY NCT 
+ ' BE BLANK' 



ELSE 

STORE F TO CL: CRT 
ENDIF 

ENDDO <CL :CRT> 

2) 23,30 SAY ' 

+ ' • 

RELEASE CL : CRT 



STORE 



i i 



TO CL : R EPL Y 



ALL 



S 20,22 SAY 

+ ' 3 

3 2 2,40 GET 
READ 

IF CL: REPLY 
RELEASE 
FETUFN 
ENDIF 

IF CL: REPLY = 
ERASE 
a 12,30 
a 12,44 

a 14,31 
a 16,30 



' 1 - CLOSE 

- EXIT' 

CL : REPLY 



CASE 2 - CHANGE 



•3* 

EXCEPT 



C : * 



1 



S AY 
SAY 
SAY 
SAY 



'CASE NUMBER' 

M: CASE 

'IS BEING CLOSED' 

' PLEASE STANDBY' 



***** TRANSLATE LC :C IEATE FROM MMDDYY TO JULIAN FORM 



:;ll 



TO 

TO 

TO 



V: MM 
V: DC 
V: YY 



STCEE VAL ($ (LC:CLDATE, 1, 

STORE VAL ($ (LC:CLDATE,3 
STCEE VAL ($(LC:CLDATE,5, 

DO C : O JUL IAN 
STCEE V.-JULLATE TO M:CLOSE 
RELEASE ALL LIKE V: * 

STCEE M :C AS E TO M : KEY 

***** p UT CLOSING DATE INTO PROPER FORMAT FOR STORAGE 



STCEE 

STORE 

STCRE 

STCEE 

STCEE 

STORE 

STCEE 



$(M :DATES,41.5) TO M : REOP EN 

$(M :DAIES,1 ,35) + M:CLOSE + 

M: REOPEN TO CL: DATES 

CL: DATES TO M: DATES 

CL: VLC TO M : VLC 

CL : CR TO M : CR 

'1C TO M : T YPE 

M:REC1 TO T : REC 1 



DO C: XDBH NDLR 

***** CREATE RECORD IN CLOSE1 



STORE ' 3F ' TO M : T YPE 



DO C.’XDBHNDLR 

STCBE M : C A S E TO I:CASE 

RELEASE ALL LIKE M : * 

STORE T : C A S E TO M:CASE 

USE D: OPE H 1 INDEX D:OCASE1 , D:ONSN 

GOTO T : RE C 1 

DEL ET E 

STORE 51 2 B * TO M:T YPE 

STORE TrCASE TO M : KEY 
DO C: XDBH NDLR 

STCBE # TO T : REC2 
STORE »4F« TO M:T YPE 

DO CiXDBHNDLfi 

STCBE M: C ASE TO T:CASE 
RELEASE ALL LIKE M:* 

STCBE T:CASE TO MlCASE 
USE D : OPE N2 INDEX D:OCASE2 
GOTO T: RE C2 
DELETE 

STORE F TO CL : ENTER 
ERASE 
END IF 

3 20,22 SAY » 

+ » • 

a) 22,22 SAY • 

+ * » 

PR J CT? 

ENDIF <C L :F ILLED> 

ENDDC <CL: MO BE> 

RELEASE ALL LIKE CL:* 

RELEASE ALL LIKE M: * 

RELEASE ALL LIKE I:* 

STORE T TO CL:CLCSE 
ENDDO <CL:CLOSE> 

***** ENE OF PROGRAM 
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VII. DATA BASE HANDLER MODULE 



*##£***#****##£# 



** 



** 



** DATE: 29 NOV 1 983 
** VERSION: 1.0 
** MODULE NAME: XDBHNDLR 

** MODULE FURPOSE: TO PROVIDE ACCESS TO THE DATA BASE 

** RECORDS FOR READ AND UPDATE 



** 

** 

x ou 
•v -v 



** MODULE INTERFACE DEFINITION ** 

** *# 



** INPUTS: M:CASE, M:COG, M :NSN , M : C AT , M : NOM EN , ** 

** M:UIC, M:UI, M : QT YDEF , M:UPBC, M:EPEC, ** 

** H :ORG , M;DOC, M:DOCNO, M: DATES, M : REPCON , ** 

** M:FSCM, M:TIME, M:WHO, M : NU M , M : C R , M:SCE,** 

** M :SM , M:09Q, M : DEF. M:VLC, M : ACTPT , ** 

** M:SCRCTYf M:REC1, M: QT YI NS , M: QTYREC , ** 

** M :QT Y STK, M: DEFV, M : DEFR , M : ITEM , M:OVER, ** 

** M : OT F , M : GO V , M:DITEM, M:CCOST r M: WNTY, ** 

** M:WUC, M : DIS , M : DETAILS. M: REPLY, ** 

** M : ACTTKN, M : COSTC , M:STATUSC, M:CAUSEC, ** 

** M :RET C , M : ACTDISP, M : MFG , M : LOT, M : TYPE ** 

** 



** OUTPUTS: M:CASE, M:COG, M : NSN, M :CAT, MlNOMEN, ** 

** M: UIC, M:UI, M : QTYDEF , M:UPBC, M:EPRC, ** 

** . M: ORG, M:DOC, M:DOCNO, M : DATES, ** 

** MlREFCON, M:FSCM, M : TIME , M:WHO, M : N U M , ** 

** M:CR, M: SCR , M:SM, M:09Q, M :DEF, M:VLC, ** 

** M: AC TFT, M : SCPQT Y , M:RECl, M: QTYI NS , ** 

** M: QT YEEC, MiQTYSTK, M : DEFV , M : DE FR , ** 

** M: ITEM, M: 0 VER , M :OTF , M:GOV, M: DITEM, ** 

** M: CCCST, M:WNTY. M:WUC, M:DIS, M : DETAILS, ** 

** M: REELY, M: ACTTKN, M: COSTC, M:STATUSC, ** 

** M: C AUSEC, M :RETC, M:ACTDISP, M:MFG , ** 

** M: LO T , M:TYPE ** 

** ** 

3$C3$C 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ACCEPTS THE TRANSACTION TYPE CODE AND ACCESSES ** 

** THE DATA BASE (I. E. OPEN1, OPEN2, CLOSE1, ** 

** OR CLOSE2) WITH THE DESIRED OPERATION (I. E. ** 

** READ, RE AD/LCCK, WRITE/UNLOCK, UNLOCK) . THE ** 

** OPERATION PERFORMED DEPENDS ON THE TYPE CODE ** 

** RECEIVED. THE MODULE WILL RETURN A TYPE CODE ** 

** TC INDICATE THE SUCCESS OR FAILURE OF THE ** 

** OPERATION. ** 

** ** 

** SUPERORDINATE MODULES: XOPEN2 , XUPDAT, CLOSREC ** 

** SUBORDINATE MODUIES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 

** ** 



$#$##$ 5 *#**# * ### **£**#*****£###************ *** * ******** ** 



***** THE GENERAL OPERATION OF THE DATA BASE HANDLER 
***** I£ BASED ON A CASE CONSTRUCT 

***** m:TYPE IS THE SELECTION KEY THAT DETERMINES THE 
***** TRANSACTION TC PERFORM - THE FIRST DIGIT REPRESENTS 
***** TEE FILE THAT IS TO BE USED AND THE SECOND DIGIT 
***** REPRESENTS THE TYPE OF ACTIVITY (I.E. READ ACCESS 
***** WIT h NSN KEY, READ ACCESS WITH CASE KEY, READ/LCCK 
***** WRITE NEW RECORD, WRITE UPDATE UNLCOK, RECORD UNLOCK 
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***** ETC. ) 

DO CASE 

***** USE OPEN 1 DATA BASE FILE 

CASE S(M:TY?E,1.1) = »1* 

IF 5 (MiTYPE, 2, 1) = 'A' .OR. $ (M IT YPE , 2 , 1) = •E* 

***** xj » A ' t HEN ACCESS BY NSN 
IF $(M*TYPE 2 1) = 'A* 

STORE 'U^e'DiOPENI INDEX DiONSN' TO H:USEFIIE 
ELSE 

***** If «b< THEN ACCESS BY CASE 

STORE 'USE D:OPEN1 INDEX D:OCASE1* TO H : US EFI LE 
ENDIF 

***** USE INDIRECT FILE IDENTIFICATION TO SELECT USE FILE 

£H : US EFILE 
FIND & M :KEY 

***** SEARCH FOR DESIRED RECORD. IF FOUND RETURN DATA 

***** ELEMENTS AND SET M: T YPE TO 0 OTHERWISE SET MiTYPE 
***** xc 9 

IF # = 0 

STORE '9' 10 M: T YPE 

RELEASE AIL LIKE H: * 

RETURN 

ELSE 

STORE # TC M : REC 1 
STORE CAS E TO M: CASE 
STORE COG TO MlCCG 
STORE NSN TO M i N SN 
STORE CAT TO M: C AT 
STORE NOMEN TO M iNOMEN 
STORE UIC TO M: U IC 
STORE UI TC M :UI 
STORE QTYDEF TO M: QTYDEF 
STORE UPRC TO M: UPRC 
STORE EPRC TO M: EPRC 
STORE ORG TC M:0 RG 
STORE DOC TO M:D0C 
STORE DOCNC TO M : DOCNO 
STORE DATES TO MlDATES 
STORE REPCCN TO MlREPCON 
STORE F SC M TO M: FSCM 
STORE TIME TO M: TIME 
STORE WHO TO M:WHO 
STORE NUM TO M : N UM 
STORE CR TC M:CR 
STORE SCR TO M:SCR 
STORE SM TC M:SM 
STORE 09 Q TC M:09Q 
STORE DEF TO M: D EF 
STORE VLC TO M:VLC 
STORE ACT PT TO MlACTPT 
STORE SCRCTY TO M : SCBQTY 
STORE 'O' TO M: T YPE 
RELEASE ALL LIKE H: * 

RETURN 

ENDIF 

ELSE 

IF $ (MiTYPE, 2,1) = 'H' .OR. $ (Ml TYPE, 2, 1 ) = 'I* 
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**:< t £ 

*** * * 
*** * * 



***** 



*** * * 
*** * £ 
*** * * 



***** 



READ RECORD SPECIFIED BY M ; R EC 1 (RECORD NUMBER) 

IE RECORD NOT FOUND RETURN MtTYPil = 9 OTHERWISE 
RETURN THE RECCED ELEMENTS 

USE CjOPENI INDEX C:ONSN 
GOTO M: RE Cl 
IF # <> R:BEC1 

STORE '9' TO M: T YP E 
RELEASE ALL LIKE H: * 

RETURN 

ELSE 

IF M : TY P E = I THEN SKIP TO NEXT RECORD AND READ 

IF $ ( M :TYPE, 2 , 1) = 'I' 

SKIP 
EN DIF 

STORE # TO M: EEC 1 
STORE CASE TO M:CASE 
STORE CCG TO M:COG 
STCRE NSN TO M:NSN 
STORE CAT TO M: CAT 
STCRE NCMEN TC M : NOMEN 
STORE UIC TO M: UIC 
STORE UI TO M :UI 
STORE CTYDEF TO M: QTYDEF 
STORE UPRC TO MiUPRC 
STORE EPRC TO MlEPRC 
STCRE CRG TO M:ORG 
STORE DCC TO M:DOC 
STCRE ECCNO TO MlDOCNO 
STORE DATES TC M : DATES 
STCRE BEPCON TO MiREPCON 
STORE FSCM TO M:FSCM 
STORE TIME TO M:TIME 
STORE WHO TO M:WHO 
STCRE BUM TO M:NUM 
STORE CR TO M :CR 
STCRE SCR TO M:SCE 
STORE SM TO M :SM 
STCRE C9Q TO M:09Q 
STORE DEF TO M : DEF 
STCRE VIC TO M : VLC 
STORE ACTPT TC M : ACTPT 
STCRE SCRQTY TO M : SCRQT Y 
STORE 'O' TO M: TYPE 
RELEASE ALL LIKE H:* 

RETURN 

ENDIF 

ELSE 

THE FOLLOWING SECTION OF CODE UTILIZES A DELAY LOOP 
AND A LOCKING MECHANISM TO ENSURE THAT ONLY ONE USER 
IS WRITING TO A FILE AT ANY GIVEN TIME 

STORE T TC H: FAI I 
DO WHILE H :F AIL 

STORE 0 TO H: LOOPCNTR 
STCRE 2 TO H: CNTR 
USE D: FILESTAT 

WHILE OPEN1 IS BEING US ED r ENTER DELAY LOOP 

DO WHILE OPEN 1 <> * • 

STORE H :CN TR- 1 TO H: CNTR 
IF H :CNTR= 0 

STORE 2 TO H : CNTR 

STORE H : LOOPCNTR+ 1 TO H: LOOPCNTR 
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EN DIF 



***** if ik DELAY LCCP A SHORT PERIOD 0? TIME DISPLAY THE 
***** F£ CT THAT THE FILE IS CURRENTLY IN USE 

I? H :LOOPC NTR-2 

a> 23,16 SAY ' OPEN CASE FILE CURRENTLY IN USE'; 
♦ ' - PLEASE STANDBY * 

ENDIF 

***** CLOSE OUT THE USE FILE THEN REOPEN IT TO CHECK LATEST 
***** STATUS - THE FILE MUST FIRST BE CLOSED AND THEN 
***** REOPENED TO CHECK LA IEST STATUS 

USE 

USE D: FILE STAT 

***** DELAY BEFORE TRYING AGAIN 

STORE 1 TO H : DELAY 
DO WHILE H : DELAY < 5 

STORE H; DELAY + 1 TO H: DELAY 
ENDEC 
ENDDO 

***** JR FILE NCT IN USE, WRITE OUT YOUR LOCK INFORMATION 

3 23, 16 SAY ' •; 

+ • » 

3 23,16 SAY ' FILE LOCKED •; 

+ • » 

RE PL 0EEN1 WITH C: WHO 
USE 

***** !F TYPE C TRANSACTION - PERFORM A WRITS/UNLOCK 

IF $ (M -.TYPE. 2 , 1) = 'C' 

USE D: FILE STAT 

***** VERIFY THAT YCU HAVE WRITE ACCESS TO THE DATA BASE 
***** RESET THE LOCK ON THE RECORD AND WRITE OUT THE 
***** UPDATED INFORMATION 

IF OPEN 1 = C: WHO 

STORE ' ' TO M : TIME 

USE D:0PEN1 INDEX D:ONSN, D:0CASE1 
GOTO Ms EEC 1 

REPL CASE WITH ! (M ; C ASE) , CO G WITH !(M:COG),NSN WITH; 

! ( M : NSN) ,C AT WITH ! (M:CAT) , NOMEN WITH (M : NOMEN) , UIC ; 

WITH ! ( M ; UI C) , U I WITH ! (M: U I) , QT YDEF WITH M ; QTYDEF , UPRC ; 

WITH M:UPRC,EPRC WITH M:EPRC,ORG WITH !(M;ORG),DOC WITH ; 
t fM : DCC) 

REPL COCNO WITH ! (M ; DCCNO) , DATES WITH I ( M ; DAT ES) , R EPCO N : 

WITH ! (M ;REPCON) ,FSCM WITH ! (M : FSCM) , TIME WITH ! (MsTIME),; 

WHO WITH ! ( M: WHO) , NU M WITH !(M:NUM),CR WITH !(M:CR),SCR ; 

WITH !(M:SCE),SM WITH !(M:SM),09Q WITH !(M:09Q) 

REPL DEF WITH M:DEF,VIC WITH ! (M : VLC) , AC TPT WITH; 

! (M ; ACTET) ,SCRQTY WITH M; S CRQTY 

STORE 'O' TO M: TYPE 
USE 

***** UNLOCK THE DATA FILE FOB OTHERS TO WRITE 

USE D; FILEST AT 

REPL 0PEN1 WITH ' ' 

USE 

RELEASE ALL LIKE H: * 

BETURN 

ENDIF 
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ELSE 



***** IF TYPE D THEM PERFORM READ/LOCK WITH NSN ACCESS KEY 

IF $(M:TY?E # 2, 1) =' D« .OR. $ (M:TYPE, 2, 1 ) = f S> 
IF S (M: TYPE, 2,1) = • D» 

STORE 'USE DiOPEN 1 INDEX D:ONSN, 

+ ' D :OCASE 1 * TO H:USEFILS 

***** 2j T ype C THEN PERFORM READ/LOCK WITH CASE ACCESS KEY 

ELSE 

STORE 'USE DjOPENI INDEX D:OCASE1,»; 

+ • D :0 NSN' TO H: USEFILE 

^NDIF 

USE D: FILEST AT 



***** CHECK TO SEE IF THE USER HAS THE FILE LOCKED FOR 
***** WRITING 

IF OPEN 1 = C: WHO 
SH:USEFILE 
FIND SM :KE Y 

***** CHECK TO SEE IF DESIRED RECORD EXISTS. IF SO LOCK 
***** THE RECORD BY FILLING THE TIME STAMP AND RETURN THE 
***** RECORDS CONTENTS 

IF # = 0 

STORE *9' TO M:TYPE 

USE DiFILESTAT 

REPLACE OPEN 1 WITH * ' 

USE 

RELEASE ALL LIKE H:* 

RETURN 

ELSE 

***** CHECK TO SEE IF THE RECORD HAS PREVIOUSLY BEEN 
***** LCCKED FOR UPEATE - RETURN TYPE = 1 IF PREVIOUSLY 
***** LCCKED OTHERWISE LOCK THE RECORD BY FILLING IN THE 
***** TIMESTAMP AND READ THE RECORD 

IF TIME <> ' 1 

STORE ■ 1 • TO M: TYPE 
RELEASE ALL LIKE H : * 

USE D: FILESTAT 

REPLACE OPEN 1 WITH ' • 

USE 

RETURN 

ELSE 

***** READ DATE/TIME FOR TIMESTAMP 



STORE TO H: DUMMY 
POKE 61440, 180, 44, 

137, 22, 13, 240, 137, 

15, 240j 19§ 

SET CALL TO 61440 
CALL H: DUMMY 
STORE STR (PEEK (61456) ,2) 
H: HOUR 

STORE STR(PEEK (6 1455) ,2) 

H : MI N 

STORE STRrpEEK (61454) ,2) 
H:SEC 

IF $ (H : HOUR, 1,1) = 

STORE 0 +$ (H : HOU R , 2 , 1) 
TO H : HO UR 

END IF 



205, 33,; 
14 , ; 



TC 

TO 

TC 
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H: MIN 



*** * # 
* * 

* 

* * 

**# £ * 



oiu nr. 



H : SEC 



ENDIF 

STORE C: JULIA N+H: HOUR +H:MIN+ 
H: SEC TO M : TIM E 
REPL TIME WITH M :TI ME 
STORE # TO M : R EC 1 
STORE CASE TO MlCASE 
STORE COG TO M:COG 
STORE NS N TO M : N S N 
STORE CAT TO M : C AT 
STORE NOMEN TO M : NO MEN 
STORE UIC TO M: UIC 
STORE UI TO M:UI 
STORE QTYDEF TO MiQTYDEF 
SIORE UPRC TO M: UPRC 
STORE EPRC TO M : EPRC 
STORE ORG TO M : ORG 
STORE DOC TO M:DOC 
STORE DOCNO TO M:DOCNO 
STORE DATES TO M : DATES 
STORE REPCON TO M:REPCON 
STORE FSCM TO MlFSCM 
STORE TIME TO M: TIME 
STORE WHO TO M:WHO 
STORE NUM TO M: NUM 
STORE CR TO M : CR 
STORE SCR TO M:SCR 
STORE SM TO M:SM 
STORE 09Q TO M:09Q 
STORE DEF TO M: DEF 
STORE VLC TO M:VLC 
STORE ACTPT TO M : ACTPT 
SIORE SCRQTY TO M: SCRQT Y 
STORE 'O' TO M: T YPE 
USE DiFILESTAT 
REPL OPEN 1 WITH ' • 

USE 

RELEASE ALL LIKE H:* 

RETURN 
ENDIF 
ENDI F 
ENDIF 
ELSE 

TYPE F WILL BE USED TO CREATE NEW RECORDS 

IF $(M: TYPE, 2,1 ) = 'F' 

USE D : FILEST AT 

CHECK TO SEE IF THE USER HAS THE FILE LOCKED FOR 
WRITING 



IF 0 PEN 1 = C:WHO 

a) 23,25 SAY ' UPDATING CASE 

+ 'FILE ' 

USE D: OPEN 1 INDEX DrOCASEI,; 

D: ONS N 

IF NC CASE NUMEER HAS BEEN ASSIGNED BECAUSE OF A 
PREVIOUS CASE, ASSIGN A NEW CASE NUMBER 

IF M:CASE = ' » 



***** CHECK FOR LAST CASE IN THE DATA BASE AND ASSIGN 
***** NEXT AVAILABLE NUMBER 

GOTO BOTTOM 

STORE $ (CASE, 1,1) TO H : YR 
STORE VAL (S (CASE, 2, 5) } + 1 TO ; 

K: SERIAL 

IF H: SERIAL > 9999 
STORE H ; YR + : 

STR (H:SERIAL, 5,0) TO M:CASE 
ELSE 

IF H: SERIAL > 999 

STORE H : YR + 'O' + ; 

STR (H:SERIAL, 4,0) TO ; 

M: CAS E 
ELSE 

IF H : SERIAL > 99 

STORE H : YR + '00' + ; 
STR (H:SERIAL,3,0) TO; 

M : CASE 

ELSE 

IF H : SERIAL > 9 

STORE H : YR+ ' 00 0 ' +; 
STR (H: SERIAL, 2 ,0) ; 
TO M : CASE 

ELSE 

STORE H : YR + ' 0000 ' ; 

+ STR (H: SERIAL, 1 ,0) ; 
TO M : CASE 

ENDIF 
EN DIF 
ENDIF 
ENDIF 
ENDIF 

a 23,26 SAY 'CREATING NEW RECORD' ; 
, +' - OPEN1 ' 

***** CREATE NEW RECCED AND FILL WITH DATA 

APPEND BLANK 

REPL CASE WITH ! (M:CASE),COG WITH ! (M:COG),NSN WITH ; 

! ( M : N SN) ,C A I WITH !( M : CAT) , NOMEN WITH ! ( M; NOMEN) , U IC WITH; 

! (M : QIC), UI WITH ! (M:UI) , QTYDEF WITH M : QT YDEF,UPRC WITH ; 
M:UPRC,EPRC WITH M:EFEC,QRG WITH !(M:ORG),DOC WITH !(M:DOC) 
REPL EOCNO WITH !( M : DCCNO) , DATES WITH ! (M : DAT ES) , REPCON ; 
KITH ! (MlREECON) ,FSCM WITH ! (M :FSCM) , TIME WITH !(H:TIME),; 
WHO WITH I (C: W HO ) , NU M WITH !(M:NUM) f SM WITH !(M:SM) f 09Q ; 
KITH ! ( M : 09Q) , DEF WITH M :DE F , ACTPT WITH !(M;ACTPT) 

S 23 ,26 SAY • • 

a 23,25 SAY ' • 

STORE 'O' TO M:TYPE 

USE D: FILESTAT 

REPL OPEN 1 WITH ' ' 

U SE 

RELEASE ALL LIKE H: * 

RETURN 

ENDIF 

ELSE 

***** IF TYPE G THEN UNLOCK A PREVIOUSLY LOCKED RECORD 
***** ( N0 UPDATE WILL TAKE PLACE) 

IF $ (M : TYPE, 2,1) = 'G' 

USE D: FILESTAT 

***** CHECK TO SEE IE THE USER HAS THE FILE LOCKED FOE 
***** WRITING 

I F OPEN 1 = C: WHO 
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USE DiOPENI 
GOTO M : R EC 1 



***** CLEAR THE TIMESTAMP TO UNLOCK 

IF TIME = MMIMS 
REPL TIME WIT H » 

ENDIF 

USE D: FILESTAT 

REPL OPEN 1 WITH ’ » 

USE 

ENDIF 

RELEASE ALL LIKE H:* 

RETURN 
END I E 
ENDIF 
ENDIF 
ENDIF 
END DO 
ENDIF 
ENDIF 

***** USE CPE N 2 DATA BASE FILE 
CASE $ (M:TYPE,1 , 1) = *2' 

***** SINCE OPEN2 HAS A SINGLE KEY, BOTH TYPE A AND 3 
***** MAY BE USED FOR ACCESS 

IF $ (MlTYPE, 2. 1) = 'A' .OR. $ (M :T YPE , 2 , 1) = '3' 

USE D:OPEN2 INDEX E:OCASE2 
FIND &M:KEY 



***** FIND REQUESTED RECORD IF FOUND RETURN THE DATA 
***** ELEMENTS AND TYPE = 0, OTHERWISE RETURN TYPE = 9 

IF # = 0 

STORE '9’ TO M : T Y P E 
RELEASE AIL LIKE H:* 

RETURN 

ELSE 

STORE # TC M : REC 1 
STORE CASE TO M: CASE 
STORE QTYINS TO M : QTYINS 
STORE QTYREC TO M : QTYREC 
STORE QTYSTK TO M: QTYSTK 
STORE DEF V TO M: DEF V 
STORE DEF R TO M: EEFR 
STORE ITEM TO M: ITE M 
STORE OVER TO M: OVER 
STORE OTF TO M: 0 TF 
STORE GOV TO M:GCV 
STORE TIME TO M: TIME 
STORE WHO TO M:WHO 
STORE DITEM TO M : DITEM 
STORE CCOST TO MiCCOST 
STORE WNTY TO M: WNTY 
STORE WUC TO M;WUC 
STORE DIS TO M;DIS 
STORE DETAILS TO M: DETAILS 
STORE REPLY TO M: REPLY 
STORE ACT TKN TO M: ACTTKN 
STORE COSTC TO M:COSTC 
STORE STATUSC TO M:STATUSC 
STORE CAUSEC TO M.'CAUSEC 
STORE RETC TO M: RETC 
STORE ACTDISP TO M:ACTDISP 
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j{c * 



3jC 3jC 3^C 



*** 5jC * 
❖ ** * * 
** * * * 



*** * * 



STORE HFG TO M : M FG 
STORE LOT TO M:LCT 
STORE ’O'- TO M : T Y P E 
RELEASE AIL LIKE H:* 

RET URN 
ENDIF 
ELSE 

IF TYPE H OR I ACCESS BY RECORD NUMBER (M:REC1) 

IF $ (M:TYPE, 2-1) = ’ H’ .OR. $ (M: TYPE, 2 , 1 ) = ’I* 

Use D:of>E^2 

GOTO M: REC 1 
IF # <> £ :REC1 

STORE ’S’ TO M: TYPE 
RELEASE ALL LIKE H : * 

RETURN 

ELSE 

IF TYPE I, SKIP TO NEXT RECORD AND READ DATA 

IF $ { M :TYPE, 2,1) = 'I' 

SKIP 

ENDIF 

STORE # TO M: REC 1 
STORE CASE TO M;CASE 
STORE CTYINS TO MiQTYINS 
STORE CTYREC TO MlQTYREC 
STORE QTYSTK TO M: QTYSTK 
STORE EEFV TO M:DEFV 
STORE DEFR TO M: DEFR 
STORE ITEM TO M: ITEM 
STORE CVER TO M:OVER 
STCRE CTF TO M :OTF 
STORE GCV TO M:GOV 
STORE TIME TO M: TIME 
STCRE WHO TO M:WHO 
STCRE DITEM TO MiDITEM 
STORE CCOST TO MtCCOST 
STCRE WNTY TO M : WNTY 
STORE WUC TO M:WUC 
STCRE CIS TO M : DIS 
STCRE DETAILS TO MiDETAILS 
STORE REPLY TC M: REPLY 
STORE ACTTKN TO M : ACTTKN 
STCRE CCSTC TO M:COSTC 
STORE STATUSC TO M:STATUSC 
STORE CAUSEC TO M:CAUSEC 
STORE RETC TO M: RETC 
STCRE ACTDISP TO M:ACTDISP 
STORE MFG TO M : MFG 
STORE LCT TO M: LOT 
STORE ’O' TO M:TYPE 
RELEASE ALL LIKE H : * 

RETURN 

ENDIF 

ELSE 

THE FOLLOWING SECTION REQUIRES THAT THE DATA BASE 

BE LOCKED TO ENSURE ONLY A SINGLE UPDATE IS 

PERFORMED AT A TIME 

STORE T TC H: FAI L 
DO WHILE H :F AIL 

STORE 0 TO H: LOOPCNTR 
STORE 2 TO H: CNTR 
USED: FILESTA I 

LOOP WHILE OPEN2 IS LOCKED BY ANOTHER USER 



114 



DO WHILE OPEN 20 ' ’ 

STORE E :CN TH- 1 TO H : CN T R 
IF H :CHTR- 0 

SLOPE 2 TO H : CNTR 

STORE H : LOOPCNT R + 1 TO HsLOCPCNTF 
END IF 

IF H :LOOPC NTR=2 

3 23,16 SAY ‘OPEN CASE FILE CURRENTLY IN*; 
+ ' USE - PLEASE STANDBY* 

END IF 

***** CLOSE AND REOPEN THE FILE STATS TO DETERMINE ANY 
***** CHANGE IN FILE LOCKING STATUS 

USE 

USE DiFILESTAT 

***** DELAY BEFORE NEXT ATTEMPT TO ACCESS THE DATA EASE 

STORE 1 TO H : DELAY 
DO WHILE H :DELAY < 5 

STORE H: DELAY + 1 TO H : DEL AY 
ENDEC 
ENDDO 

3 23, 16 SAY • • 

+ * « 

* 3 23,16 SAY ' FILE LOCKED ' 

+ i i 



***** WRITE LOCK TO FILEST AT 

RE PL 0PEN2 WITH C:WHO 
USE 

***** IF TY pE C PERFORM WRITE/UNLOCK 

IF $ ( M : TYPE, 2,1) = 'C* 

USE EJFILESTAT 

***** CEECK TO SEE IF U'SER HAS WRITE ACCESS TO THE DATA 
***** BASE 



IF CPEN2 = C: WHO 

STORE ' ' TO M: TIM E 

USE D: 0 PEN2 INDEX D:0CASE2 

***** WRITE UPDATE INFORMATION TO THE FILE 



GOTO M: 

REPL CASE WITH ! (M:CASE),QT 
M:QTYREC,QTYSTK WITH M : QTY-S 
WITH ! (M:DEFR) . ITEM WITH !( 
CTF WITH ! (OTF f , GO V WITH !j 
REPL WHO WITH ! ( M: W HC) , DITE 
M:CCCST , WNTY WITH !JM:WNTY) 

! (M: DIS) , DETAILS WITH !(H:D 
ACTTKN WITH ! ( M : ACTT K N) , COS 
REPL STATUSC WITH ! (MlSTATU 
RETC WITH ! (M: RETC) , ACTDISP 
! (M: MFG) , LOT WITH ! (M:LOT) 

STORE * 
USE 



REC 1 

YINS WIT 
IK , DEFV 
M : ITEM) , 
M:GOV) ,T 
M WITH ! 
,WUC WIT 
ETAILS) , 
TC WITH 
SC) , C AUS 
WITH ! ( 



H M:QTY INS ,QT YREC WITH 
WITH I (M: DEFV) , DEFR ; 
OVER WITH ! (M : OVER) , ; 
IME WITH ! (M: TIME) 

M : DITEM) ,CCOST WITH ; 
! (M: WUC) ,DIS WITH ; 
REPLY WITH ! ( M : REPLY ) , 
! (M: COSTC) 

EC WITH ! ( M: C A US EC) , ; 
M: ACTDISP) , MFG WITH ; 



4 



O' TO M: TYPE 



***** UNLOCK FILE FOR OTHERS USE 

USE D: FILEST AT 
REPL 0PEN2 WITH * 
USE 
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*** * * 



*** * * 
**** * 



£ * 
*** * 4 : 



***** 

***** 



*** * * 



RELEASE 
RETURN 
E N D 1 F 
ELSE 



ALL LIKE H:* 



IE TYPE D OR E PERFORM BE AD/LOCK 



IF ${M:TYP 
CSE D: F 

CHECK TO SEE IF USER 
EASE 

IF OPEN 
USE 
FIND 

IF DESIRED RECORD FO 
CURRENTLY IN CSE - I 

IF # 
S 
U 
R 
U 
R 
R 

ELSE 

IF TIMESTAMP FILLED, 
TYPE = 1 



E,2,1) = ' D» .OR 
ILESTAT 



$(M: TYPE ,2,1) 



HAS WRITE ACCESS TO THE DATA 



2 = C * WHO 

D :OPEN2 INDEX D:OCASE2 
&M.-KEY 

UND VERIFY THAT RECORD IS NOT 
F NOT FOUND RETURN TYPE = 9 

= 0 

TORE '9' TO M : T YPE 

SE D: FILESTAT 

EPLACE OPEN2 WITH ' ' 

SE 

ELEASE ALL LIKE H:* 

ETUBN 



RECORD IN USE - RETURN 



IF TIME <> ' ' 

STORE '1' TO M : TYPE 
RELEASE ALL LIKE H:* 

USE D; FILESTAT 

REPLACE OPEN2 WITH ' ' 

USE 

RETURN 

ELSE 

LCAB TIME/DATE INTO TIMESTAMP AND READ THE RECORD 



205, 33, 
137, 14, 



TO 

TO 

TO 



STORE TO H: DUMMY 
POKE 61440, 180, 44, 

137, 22, 13. 240, 

15, 240. 195 
SET CALL TO 61440 
CALL H : DUMMY 
STORE STR (PEEK (61456) , 2) 

H: HOUR 

STORE STR (PEEK (6 1455) , 2) 

H : MI N 

STORE STR (PEEK (6 1454) , 2) 

H : SEC 
IF $ (H : HOUR , 1,1) = 

STORE 0 +$ (H:HOUR,2,1) ; 

TO H : HOUR 

END IF 

IF $ (H : MIN , 1,1) = 

STORE 0 + $ (H: MIN, 2,1) TO ; 
H: MIN 

END IF 

IF $ (H : S EC , 1,1) = 

STORE 0 + $ (H:SEC, 2, 1) TO ; 
H: SEC 

ENDIF 

STORE C: JULIAN+H:HOUR +H:MIN+ 
H : SEC TO M-.TIME 



116 



REPL TIME WITH MrTIME 
STORE # TO M: REC1 
STORE CASE TO M:CASE 
STORE QTYINS TO M: QTYINS 
STORE QTYREC TO H: QTYREC 
STORE QTYSTK TO M: QTYSTK 
STORE DEFV TO M: DEFV 
STORE DEFR TO M: DEFR 
STORE ITEM TO M: ITEM 
STORE OVER TO M: OVER 
STORE OTF TO M: OTF 
STORE GOV TO M:GOV 
STORE TIME TO M: TIM E 
STORE WHO TO M:WHO 
STORE DITEM TO M : DITEM 
STORE CCOST TO MtCCOST 
STORE WNTY TO M: WNT Y 
STORE WUC TO M:WUC 
STORE DIS TO M:DIS 
STORE DETAILS TO M: DETAILS 
STORE REPLY TO M:REPLY 
STORE ACTTKN TO M: ACTTKN 
STORE COSTC TO M.'COSTC 
STORE STATUSC TO MjSTATUSC 
STORE CAUSEC TO HsCAUSEC 
STORE RETC TO M: RETC 
STORE ACTDISP TO M; ACTDISP 
STORE MFG TO M : MFG 
STORE LOT TO M:LOT 
STORE 'O' TO M:T YPE 

***** UKLOCK DATA BASE FOR OTHER USERS 

USE D: FILESTAT 

REEL OPEN2 WITH ' * 

USE 

RELEASE ALL LIKE H:* 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ELSE 

***** T ype F CREATES NEW RECORDS 

IF $(M: TYPE, 2,1) = 'F' 

USE D: FILEST AT 



***** CHECK TO SEE IF USER HAS WRITE ACCESS TO THE DATA 
***** EASE 

IF 0 PEN 2 = C:WHO 

* a) 23,25 SAY ' UPDATING CASE'; 

+ ' FILE ' 

USE D: OPEN2 INDEX D:OCASE2 

***** ADD THE NEW RECORD AND ENTER DATA 

APPEND BLANK 

REPL CASE WITH ! (M: CASE) ,QT YINS WITH M : QTYINS , QTYREC WITH; 

M: QTYREC, QTYSTK WITH M: QTY STK .DEFV WITH ! (M: DEFV) , DEFR ; 
WITH ! (MiDEFR), ITEM WITH !( M: ITEM) .OVER WITH !(M:OVER),; 

OTF WITH ! (OTF), GOV WITH ! j M : GOV) , T IME WITH ! (M: TIME) 

REPL WHO WITH ! ( C: W HC) , DITE M WITH I (M : DITE M) , WNT Y WITH ; 
!(M: WNTY) , WUC WITH !JM:WUC),DIS WITH ! (M : DIS) .DETAILS ; 

WITH ! (MsDETAILS) , ACTDISP WITH !( M: ACTDISP) , MFG WITH ; 

! (M : MFG) ,LOT WITH !(M:LOT) 

STORE 'O' TO M:TYPE 
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***** UNLOCK DAT a BASE FOR OTHERS 

USE D: FIL ES TAT 

RErL 0 ? EU 2 WITH ' 1 

USE 

5) 23,25 SAY » 

+ « • 

RELEASE ALL LIKE H: * 

RETURN 
ENDI F 
ELSE 

***** IF T ype G PERFORM UNLOCK (NO UPDATE) 

IF $ (M: TYPE.2, 1) = 'G* 

USE C : FIL ESTAT 
I F OPEN2 = C: WHO 
USE D: OP EN 2 
GOTO M : REC 1 
IF TIME = M : T I M E 
REPL TIME WITH • 

ENDIF 

***** UNLOCK DATA BASE FOR OTHERS 

USE D: FILESTAT 

REEL OPEN2 WITH • • 

USE 

ENDIF 

RELEASE ALL LIKE H;* 

RETURN 
ENDI F 
ENDIF 
• ENDIF 
ENDIF 
END DO 
ENDIF 
ENDIF 

***** TYPES 3 AND 4 DEAL WITH CLOSE1 AND CLOSE2 
***** THE METHODOLOGY USED FOR THESE TYPES IS THE SAME 
***** AS F oR THE OPEN1 AND OPEN2 DATA BASE FILES 
***** ONLY DIFFERENCES WILL BE NOTED BELOW SINCE THE 
***** E ASIC COMMENTS ARE THE SAME AS ABOVE 



***** TYPE 3 USES CLCSE1 

CASE $(M:TYPE,1 . 1) = '3* 

IF $ ( K:TYPE, 2 , 1) = 'A' .OR. $ (M :T YPE , 2 , 1) = *B' 

IF $ (M: TYPE 5,1) = * A* 

STORE ' u£e'd:CLOSE1 INDEX D:CNSN* TO H : USEFILE 
ELSE 

STORE 'USE D:CLOSE 1 INDEX D:CCASE1* TO H: US EF ILE 
ENDIF 

6H: USEFILE 
FIND & M :KE Y 
IF # = 0 

STORE '9* TO M;T YPE 
RELEASE ALL LIKE H : * 

RETURN 

ELSE 

STORE # TC M:REC1 
STORE CASE TO M: CASE 
STORE COG TO M:COG 
STORE NS N TO M: N SN 
STORE CAT TO M: C AT 
STORE NOMEN TO M : NOMEN 
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STOEE UIC TO M: f J IC 
STORE UI TC M:UI 
STORE QTYEZF TO M : QTYDEF 
STORE UP RC TO M:UPFC 
STORE EPRC TO M: EPRC 
STORE ORG IC £1:0 RG 
STORE DOC TO M:DGC 
STORE DOC SC TO M :DCCNO 
STORE DATES TO M : DATES 
STORE REPCCN TO «:REPCON 
STORE FS CM TO M: FSCM 
STORE TIME TO M: TIME 
STORE WHO TO H:WHO 
STORE NUM TO M: N UM 
STORE CR TC M:CR 
STORE SCR TO H:SCR 
STORE SM TC M:SM 
STORE 09Q TO M:09Q 
STORE DEF TO M: D EF 
STORE VLC TO M:VIC 
STORE ACT IT TO MlACTPT 
STORE SCRQTY TO M : SCEQTY 
STORE 'O' TO M:TYPE 
RELEASE AIL LIKE H:* 

RETURN 
END IF 
ELSE 

IF $ (M: TYPE, 2,1) = 'H' .OR. $ (M : TYPE, 2,1) = 'I* 

USE D:CLCSE1 
GOTO M: REC1 
IF # <> M.-REC1 

STORE '9* TO M : T YPE 
RELEASE ALL LIKE Hr* 

RETURN 

ELSE 

IF $ (MiTYPE, 2 ,1) = 'I* 

SKIE 
EN DIF 

STCRE # TO M: REC 1 
STORE CASE TO M:CASE 
STCRE CCG TO M:COG 
STORE NSN TO M : NSN 
STCRE CAT TO M :CAT 
STCRE NCMEN TC B: NOMEN 
STCRE UIC TO M :UIC 
STORE UI TO M : UI 
STCRE CTYDEF TO M : QTY DEF 
STORE UPRC TO M: UPRC 
STCRE EPRC TO M:EPBC 
STORE CBG TO M : ORG 
STCRE ECC TO M:DOC 
STORE ECCNO TC M:DCCNO 
STORE EATES TO M : DATES 
STORE EEPCON TO M:REPCON 
STORE FSCM TO M:FSCM 
STORE TIME TO M: IIME 
STCRE WHO TO M:WHO 
STORE NUM TO M: NUM 
STORE CB TO M :CR 
STORE SCR TO M:SCR 
STCRE SM TO M :SM 
STORE C9Q TO M:09Q 
STCRE EEF TO M : DEF 
STORE VIC TO M: VIC 
STCRE ACTPT TO M : ACTPT 
STORE SCRQTY TO M: SCRQTY 
STORE *0' TO MiTYPE 
RELEASE ALL LIKE H:* 

RETURN 
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END IF 
ELS v 

STORE T TC H: FAI I 
DO WHILE H:FAIL 

STORE 0 TO H: LOOFCNTR 
STORE 2 TO H : CNTR 
USE D: FILESTA I 
DO WHILE CLOSEIO* ' 

STORE H:CNTR-1 TO H: CNTR 
IF H :CNTR= 0 

STORE 2 TO H : CNTR 

STORE H : LOOPCNTR+ 1 TO H:LOOPCNTP. 

ENDIF 

IF H :LOOPC NTR=2 

a) 23,16 SAY 'CLOSE CASE FILS CURRENTLY IN'; 

+ ' USE ~ PLEASE STANDBY’ 

ENDIF 

USE 

USE D; FILE STAT 
STORE 1 TO H: DELAY 
DO WHILE H : DELAY < 5 

STORE H: DELAY + 1 TO H : DEL AY 
ENDDO 
ENDDO 

a) 23, 1 6 SAY ' ' ; 

+ ' » 

* a) 23,16 SAY ' FILE LOCKED BY '; 

♦ ' CLOSE1 ' 

RE PL CICSE1 WITH C:WHO 
USE 

IF $ ( M ;TYPE, 2,1) = 'C» 

USE D : FILE STAT 
IF CIOS El = C : WHO 

STORE ' ' TO M: TIME 

USE D; C LOS El INDEX DlCNSN, D:CCASE1 

GOTO M; REC 1 

REPL CASE WITH J (M : C ASE) ,CO G WITH ! (M : COG) , NS N WITH ; 

! (M: NSN) , CAT WITH !( M ;CAT) , NOMEN WITH ! (M: NOMEN) , UIC WITH ; 

! (M ; UIC) , UI WITH ! (M: UI) .QT YDEF WITH M: QTYDEF ,UPRC WITH : 

M; UPRC ,EPRC WITH M:EPEC,ORG WITH !(M;ORG),DOC WITH !<M:EOC) 
REPL DOCNO WITH !( M : DCCNO) , DATES WITH ! ( M : DAT ES) , REPCO N ; 
WITH ! (M-.REECON) ,FSCM WITH ! (M : FSCM) , TIME WITH !(M:TIME),; 
WHO WITH ! ( M; WH 0 ) , NU M WITH !(M:NUM),CR WITH !(M:CR),SCR ; 
WITH I(M;SCR) ,SM WITH !(M;SM),09Q WITH !(M;09Q) 

REPL D*F WITH M ; DEF , VLC WITH ! (M ; VL C) , ACTP T WITH ; 

! (M: ACTPT) ,SCRQT Y WITH MrSCRQTY 

STORE 'O' TO M: TYPE 
USE 

USE D: F ILEST AT 

REPL CLCSE1 WITH ' ' 

USE 

RELEASE ALL LIKE H:* 

RETURN 
ENDIF 
EL SE 

IF $ (M;TYPE / 2,1)=' D* .OR. $ ( M: T YPE , 2 , 1 ) = • E ' 
IF $ (M: l£p§, 2 , 1 ) = 'D* 

STORE 'USE D: CLOS El INDEX D:CNSN, '; 

+ * D : CC AS E 1 ' TO H: US EFILE 

ELSE 

STORE 'USE D: CLOSE1 INDEX D:CCASE1,'; 
♦ ' D: CNSN ' TO H :US EFILE 

ENDIF 

USE DiFILESTAT 
IE CLOS El = C: WHO 
&H: USEFILE 
FIND &M:KEY 
IF # = 0 

STORE *9' TO MrTYPE 
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USE D: FILESTAT 

REPLACE CLOSE 1 WITH ' ’ 

USE 

RELEASE ALL LIKE H:* 

RETURN 

ELSE 

IF TINE <> ' ’ 

STORE ' 1 * TO M: T YPE 
RELEASE ALL LIKE H: * 

USE D: FILESTAT 

REPLACE CLOSE 1 WITH * » 

USE 

RETURN 
E LS E 

STORE TO H: DUMMY 
POKE 61440, 180, 44, 205, 33,; 

137, 22, 13, 240, 137, 14,; 

15, 240, 195 
SET CALL TO 61440 
r AT T H • nUM M Y 

STORE STR (PEEK (6 1456) ,2) TC ; 

H ; HOUR 

STORE STR (PEEK (6 1455) , 2) TC ; 

H : M IN 

STORE STR(PEEK (6 1454) ,2) TC ; 

H ; S EC 

IF $ (H:HOUR, 1 , 1) = 

STORE 0 +$ (H: HOUR, 2, 1) ; 

TO H : HOU R 



ENDIF 

IF $ (H : MIN , 1,1) = 

STORE 0+$ (H: MIN, 2, 1) 
H; MIN 

ENDIF 

IF $ (H:SEC, 1 , 1) = 

STORE 0 + $ (H:SEC, 2, 1) 
H: SEC 



TO ; 
TO ; 



ENDIF 

STORE C: JULIAN+H :HOUR +H:MIN+; 

H: SEC TO M :TI M E 
REPL TIME WITH M :TIME 
STORE # TO M : R EC 1 
STORE CASE TO M:CASE 
STORE COG TO M:COG 
STORE NS N TO M : NSN 
STORE CAT TO M:CAT 
STORE NOMEN TO M : NOMEN 
STORE UIC TO M:UIC 
STORE UI TO M:UI 
STORE QTYDEF TO M: QTYDEF 
STORE UPRC TO M;UPRC 
STORE EPRC TO M:EPRC 
STORE ORG TO M : ORG 
STORE DOC TO M : DOC 
STORE DOCNO TO M:DOCNO 
STORE DATES TO M :DA TES 
STORE REPCON TO M:REPCON 
STORE FS CM TO M:FSCM 
STORE TIME TO M: TIME 
STORE WHO TO M;WHO 
STORE NUM TO M ; NUM 
STORE CR TO M:CR 
STORE SCR TO M:SCR 
STORE SM TO M:SM 
STORE 090 TO M:09Q 
STORE DEF TO M: DEF 
STORE VLC TO M:VLC 
STORE ACTPT TO M : ACTPT 
STORE SCRQTY TO M: SCRQT Y 
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STORE '0‘ TO MlTYPE 
USE D: FILESTAT 
REPL CLOSE1 WITH ' 
USE 

RELEASE ALL LIKE H:* 
RETURN 



— ■ M T'’ t TT 

Z* i'i ± L 



END I ? 

ENDIF 

ELSE 

***** FOR TYPE F. A NEW RECORD IS CREATED BY TRANSFERRING 
***** c ATA FROM THE OPEN FILE TO THE CLOSE FILE 

IF $ (M: TYPE, 2. 1) = * F* 

USE D: FILESTAT 
IF C LOS El = C: WHO 

a) 23,25 SAY ' UPDATING CASE'; 

+ • FILE ' 

USE D: CLOSE 1 INDEX D:CCASE1, ; 
r • CNS N 

APPEND BLANK 



REPL CASE WITH ! (M 
! ( M: NSN) f C AT WITH 
! (M : UIC) ,01 WITH 
M : UP RC , EPRC WITH 
REPL EOCNO WITH 
WITH ! (M : RE ECO N) 



M 



I ( M : D 
,FSCM 



WHO WITH ! (C:WHO) f NUtl WITH !(M:NUM) 
WITH !(M:09C),DEF WITH M:DEF r ACTPT 



CASE), COG WITH !(M:COG),NSN WITH ; 

( M;CAT) , NOMEN WITH ! ( M : NOM EN) , U IC WITH; 

{ M : UI) , QTYDEF WITH M ; QT YDEF,UPRC WITH ; 

E PEC , ORG WITH !(M:ORG),DOC WITH !(M:DOC) 
ECCNO) , DATES WITH I (M : D AT ES) , R EPCO N ; 

" WITH ! (M ; FSCM) , TIME WITH !(M:TIME) 



, S M WITH ! (M: SM) ,09Q 
WITH ! (M: ACTPT) 



r t 



STORE 'O' TO M : TYPE 
USE D; FIL ES TAT 
REPL CL0SE1 WITH ' 

USE 

9 23,25 SAY ' 

+ • 

RELEASE ALL LIKE H: * 
RETURN 
ENDIE 
ELSE 

IF $ (M: TYPE, 2, 1) = 'G' 

USE D; FILES TAT 
IF CL0SE1 = C ; WHO 
USE D; CLOS E 1 
GOTO M : R EC 1 
IF TIME = MtTIME 
REPL TIME WITH • 
ENDIF 

USE D: FILESTAT 
REPL CLOSE 1 WITH ' 



ALL LIKE H:* 



USE 
ENDIF 
R ELEASE 
RETURN 
ENDI F 
ENDIF 
ENDIF 
ENDIF 
END DO 
ENDIF 
ENDIF 

***** type 4 USES CICSE2 DATA BASE FILE 



CASE $ (M:TYPE,1 . 1) = '4' 
IF $ (M:TYPE, 2, 1) = ' A 
USE D: CLOS E2 INDEX 



' .OR. $(M:TYPE,2, 1) 
D: CCASE2 



= ' B 
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FIND & M :KE Y 
IF # = 0 

STORE *9* 10 M:TYPE 
RELEASE AIL LIKE H:* 

RETURN 
ELSE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 

RELEASE AIL LIKE H: * 

EETURN 
END IF 
ELSE 

IF $ (M: TYPE, 2,1) = •H' .OR. $ (M : TYPE, 2,1) = *1* 
USE D: CLCSE2 
GOTO M: REC1 
IF # <> M :REC1 

STORE ‘S' TO M: TYPE 
RELEASE ALL LIKE H : * 

RETURN 

ELSE 

IF $ ( M : TYPE, 2 ,1) = 'I • 

SKIP 
EN DIF 

STORE # TO M: EEC 1 
STORE CASE TO M:CASE 
STORE CTYINS TO M : QTY IN S 
STORE QTYREC TO M : QTY REC 
STORE CTYSTK TO M: QTY STK 
STORE CEF V TO M: DEF V 
STORE EEFR TO M: CEFR 
STORE ITEM TO M : ITEM 
STCRE CVER TO M:OVER 
STORE CTF TO M : OTF 
STORE GCV TO M:GOV 
STORE TIME TO Ms TIME 
STCRE WHO TO M:WHO 
STORE CITEM TO M : DITEM 
STCRE CCOST TO M:CCOST 
STORE WNTY TO M: WNT Y 
STORE WUC TO M:WUC 
STORE DIS TO M:DIS 
STORE DETAILS TO M: DETAILS 



# T C M : REC 1 
CASE TO Ms CASE 
QTY I NS TO M: QTY INS 
QTY EEC TO M: QTYREC 
QTY STK TO MsQTYSTK 
DEF V TO M: DEF V 
DEFE TO M : EEFR 
ITEM TO M: ITEM 
OVEE TO a: CVER 
OTF TC a: OTF 
GOV TO M:GOV 
TIME TO M: TIME 
WHO TO M : W HO 
DITEM TO M : DITEM 
CCOST TO M :CCOST 
WNTY TO M: WNTY 
WUC TO M:WUC 
DIS TO M: D IS 
DETAILS TO M: DETAILS 
REPLY TO M : RE PL Y 
ACTTKN TO M : ACTTKN 
COSTC TO M : COSTC 
STATUSC TO M : STATU SC 
CAUSEC TO MiCAUSEC 
RETC TO M: RETC 
ACT DISP TO M: ACTDIS? 
MFG TO M: M FG 
LOT TO M: L CT 
’O' TO M:T YPE 
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STORE REPLY TC MlRSPLY 
STORE ACTTKN TO K: ACTTKN 
STORE CCSIC TO M:COSTC 
STORE STATUSC TO M: STATUSC 
STORE CAUSEC TO M:CAUSEC 
STORE EETC TO M : RETC 
STORE ACTDISP TO M:ACTDISP 
STORE MFG TO M : MFG 
STORE LOT TO M: LOT 
STORE ’O' TO K :T YPE 
RELEASE ALL LIKE H : * 

RETURN 

ENDIF 

ELSE 

STORE T TC H: FAI L 
EO WHILE H :F AIL 

STORE 0 TO H: LOOPCNTR 
STORE 2 TO H: CNTB 
USED: EILESTA T 
DO WHILE CL0SE2O' ' 

STORE H:CNTR-1 TO H:CNTR 
IF H :CNTR= 0 

STORE 2 TO H : CN TR 

STORE H : LOOPCNT R+ 1 TO H:LOOPCNTR 
ENDIF 

IF H : LOOPC NTE=2 

3) 2 2,16 SAY 'CLOSE CASE FILS CURRENTLY IN USE ' 
+ PLEASE STANDBY' 

ENDIF 

USE 

USE C: FILESTAT 
STORE 1 TO H : DELAY 
DO WHILE H : DELAY < 5 

STORE H: DELAY + 1 TO H: DELAY 
END DC 
ENDDO 

a) 23, 1 6 SAY ' 

RE PL CICSE2 WITH C:WHO 
us v 

I F ( M : TYPE, 2 , 1 ) = 'C' 

USE D: FILE STAT 
IF CIOSE2 = C : WHO 

STORE ' ' TO M: TIME 

USE D: C LOS E2 INDEX D:CCASE2 
GOTO MtRECI 

REPL CASE WITH ! (M : C ASE) , QT YINS WITH M : QTYINS , QTY R EC ; 

WITH H: QTYREC, QTYSTK WITH M : QTYS IK, DE FV WITH !?M:DEFV),; 

DEFR WITH ! (M;DEFR) .ITEM WITH ! (M:ITEM) , OVER WITH ; 

! (M : OVER) ,OTF WITH !(CTF),GOV WITH ! (M: GOV) , TIME WITH ; 

! ?M: TIME) 

REPL WHO WITH ! ( M: WH C) . DITE M WITH ! (M : DITEM) , CCOS T WITH ; 
MrCCOST, WNTY WITH ! ( K : WN TY) , WUC WITH ! (M : HOC) ,'DIS WITH ; 

! (M : DIS) , DETAILS WITH ! ( M: D ET AILS) , REPLY WITH ! ( M : R EPL Y) , ; 
ACTTKN WITH ! (M : ACTT K K) .COS TC WITH !(M:COSTC) 

REPL STATUSC WITH ! ( M ; ST ATU SC) ,C A USEC WITH ! ( M: C A US EC) , ; 

RETC WITH i (M: RETC) , ACTDISP WITH !( H: ACTDISP) , MFG WITH ; 

! (M : MFG) ,LOT WITH ! ( M : LOT) 

STORE 'O' TO M: TYPE 
USE 

USE D: F ILESTAT 

REPL CLOSE2 WITH ' ' 

USE 

RELEASE ALL LIKE H:* 

RETURN 
ENDIF 
EL SE 

IF $ (M:TYPE,2,1 ) = • D' .OR. $ (M : TYP E, 2 , 1 ) = »E' 

USE D:FILESTAT 
IF CLOSE2 = C:WHO 
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USE D : CIO SE2 INDEX D:CCASS2 
FIND DM: KEY 
IF * = 0 

STOEE * 9 • TO M:TYPE 

USE D: FILESTAT 

REPLACE CLOSE2 WITH * « 

USE 

RELEASE ALL LIKE H: * 

RETURN 

ELSE 

IF TIME <> ' ' 

STORE » 1 ’ TO M:TYPE 
RELEASE ALL LIKE H : * 

USE D: FILESTAT 

REPLACE CLOSE2 WITH ' » 

USE 

RETURN 

ELSE 

STORE TO H: DUMMY 

POKE 61440- 180, 44, 205, 33, 137, ; 

22, 13, 240, 137, 14, 15, 240, 195 
SET CALL TO 61440 
C ALL H : D UM M Y 

STORE STR(PEEK (6 1456) , 2) TO H:HOUR 
STORE STR(PEEK (6 1455) ,2) TO H : M I N 
STORE STR(PEEK (6 1454) , 2) TO H:SEC 
IF $ (H:HOUR,1 ,1) = 

STORE 0 +$ (H: HOUR , 2, 1) TO H:HOUR 
END IF 

IF 3 (H : MIN , 1,1) = 

STORE 0 + 3 (H : MIN , 2 ,1) TO H : MI N 
ENDIF 

IF $ (H:SEC, 1 , 1) = 

STORE 0 + 3 (H:SEC, 2, 1) TO H:SEC 
ENDIF 

STORE C:JULIAN+H:HOUR+H:MIN+H:SEC; 

TO M:TIME 

REPL TIME WITH M :TIM E 
STORE # TO M: EEC 1 
STORE CASE TO M:CASE 
STORE QTYINS TO M: QT YINS 
STORE QTYREC TO MiQTYREC 
STORE QTYSTK TO MrQTYSTK 
STORE DEFV TO M : DEFV 
STORE DEFR TO MtDEFR 
STORE ITEM TO M : IT EM 
STORE OVER TO M:OVER 
STORE OTF TO M : OTF 
STORE GOV TO M:GOV 
STORE TIME TO M : TIME 
STORE WHO TO M:WHO 
STORE DITEM TO MiDITEM 
STORE CCOS'T TO M:CCOST 
STORE WNTY TO M : WNTY 
STORE WUC TO M:WUC 
STORE DIS TO M:DIS 
STORE DETAILS TO M: DETAILS 
STORE REPLY TO M : REP L Y 
STORE ACTTKN TO M: ACTTKN 
STORE COSTC TO MiCOSTC 
STORE STATUSC TO M.’STATUSC 
STORE CAUSEC TO MjCAUSEC 
STORE RETC TO MlRETC 
STORE ACTDISP TO M: ACTDISP 
STORE MFG TO M : MFG 
STORE LOT TO M :LOT 
STORE 'O' TO M: TYPE 
USE D: FILESTAT 
REPL CLOSE2 WITH * ' 
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USE 

RELEASE ALL LIKE H : * 

RETURN 
SNDIF 
ENDIF 
t N D I F 
ELSE 

***** FOR TYPE F, A NEW RECORD IS CREATED BY TRANSFERRING 
***** DATA FROM THE CPEN FILE TO THE CLOSE FILE 

IF $ (M: TYPE. 2.1) = 1 F ' 

USE D : FILE§T AT 
T w rrnqi:? = C • WF O 

USE E:C?EN2 INDEX D:OCASE2 
FIND S M : CAS E 
IF # <> 0 

+ » FILE • 

USE D: CLOS E2 INDEX D:CCASE2 
APPEND BLANK 

REPL CASE WITH I (M : C ASE) ,QT YINS WITH M : QTY INS ,QTY R EC WITH; 

M: QTYKEC, QTYSTK WITH M : QTY STK , DEFV WITH ! ( M ; DEF V) , D EF R ; 
WITH ! (M:DEFR) , ITEM WITH ! ( M ; IT E M) , OV ER WITH !(M:OVES),; 
CTF WITH ! (OTF) , GO V WITH ! ( M ; GOV ) , T IME WITH !(M:TIME) 

REPL WHO WITH ! ( C: W HC) , DITE M WITH ! (M : D ITE M) , WNTY WITH ; 

! (M: WNIY) , WUC WITH !(M:WUC),DIS WITH ! ( M ; DIS ) , DET A IL S ; 
WITH ! (M : DETAILS ), ACTDISP WITH ! (H: ACTDISP) , MFG WITH ; 

! (M : MFG) ,LOT WITH !(M:LOT) 

STORE ’O’ TO M ; T YPE 

USE D: FILESTAT 

REPL CL0SE2 WITH ’ ’ 

USE 

a) 23,25 SAY ’ 

• + * i 

RELEASE ALL LIKE H : * 

RETURN 

ENDIF 

ENDIF 

EISE 

IF $ (M; TYPE, 2, 1) = *G* 

USE D: FILESTAT 
IF CL0SE2 = C: WHO 
USE D: CLOS E2 
GOTO M;REC1 
IF TIME = MlTIMS 
REPL TIME WITH ' 

ENDIF 

USE D: FILESTAT 

REPL CL0SE2 WITH ' • 

USE 

ENDIF 

RELEASE ALL LIKE H:* 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

ENDDO 

ENDIF 

ENDIF 

ENDCASE 

RETURN 

***** ENC OF PROGRAM 
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VIII. SUPERVISOR MENU 






** #$ 

** DATE: 11 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: SUPKENU1 ** 

** MODULE EURP0S2: PROVIDE MENU FOR SUPERVISOR TO ** 

** ACCESS QDF SYSTEM PROGRAMS ** 

** ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C : W H 0 . C:JULIAN ** 

** OUTPUTS: NONE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ** 

** THE SUPERVISOR IS PRESENTED WITH A MENU OF ** 

** ALL PEOSESSING CAPABILITIES AVAILABLE. AFTER ** 

** ONE IS CHOSEN , THE MODULE THEN CALLS THE ** 

** DESIGNATED PROGRAM INTO ACTION OR LOGS THE ** 

** SUPERVISOR CUT OF THE QDR SYSTEM ** 

ajc^c 

** SUPERORDINATE MODULES: LOGON ** 

** SUBORDINATE MODULES: MENU1 ,C-RE ASGN, UTILMENU , SUPRPTS, ** 

** SUPRPT2 ** 

** AUTHOR: J. G. BOYNTON ** 



£ # $ # 3fc j(c jjc 3jc^c^c^c^£5jt^t^£^c^3{! $ £ jjs# jjs $$ £:(c 

ERASE 

STORE T TO V.-CONTINUE 
DO WHILE V: CONTINUE 
STORE ' • TO V: CHOICE 

TEXT 



WELCOME TO THE QDR SUPERVISOR MENU 



1 - MAIN MENU PROCESSING 

2 - CASE REASSIGNMENT 

3 - ANALYST WORKLOAD STATISTICS 

4 - UTILITY PROGRAMS 

5 - REPORT GENERATION 

6 - YEAR END PROCESSING 

7 - SORTED LISTINGS 

8 - EXIT FROM THE SYSTEM 



ENTER YOUR CHOICE 

ENDTEXT 

3 21,30 GET V: CHOICE 

READ 

•? 

IF V : CHOICE >= 1 .AND. V: CHOICE <= 8 



BO CASE 

CASE V : CHOICE= 1 

RELEASE ALL LIKE V:* 
DO C : MENU1 . PR G 
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CASE V: CHOICE= 2 

RELEASE ALL LIKE V:* 

DO C : C- REASON . PRG 
CASE V: CHOI CE= 3 

RELEASE ALL LIKE V:* 

DO C : STATGEN. rRG 
CASE V: CHOICE= 4 

RELEASE ALL LIKE V:* 

DO C: UTILMENU .PRG 
CASE V: CHOICE= 5 

RELEASE ALL LIKE V:* 

DO C: SUFRPTS. PRG 
CASE V: CHOICE= 6 

RELEASE ALL LIKE V:* 

DO C: YE ABEND, PRG 
CASE V : CHOI CE= 7 

RELEASE ALL LIKE V:* 

DO C:SUFRPT2. PRG 
CASE V: CHOICE= 8 

RELEASE ALL EXCEPT C:* 

ERASE 

RETURN 

ENECASE 

ERASE 

STORE T TO V: CONTINUE 
STORE ' * TC V : CHOICE 

ELSE 

?' < PLEASE ANSWER WITH 1 - 8 ONLY >' 

ENDIE <V:CHCICE> 

ENDDO < V : CC NTI NU E> 

***** ENE 0F program 
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IX. SUPERVISOR UTILITY MENU 



********* *********** 4 *** ^e^E a}e ****************** *** ********* ** 
** ** 

** Date: 16 January 1984 ** 

** V ersion : 1 . 0 ** 

** Module Name: UTIL MENU ** 

** Module Purpose: Provide Supervisor with menu of e* 

** utility programs available to him. ** 

** ** 

** Module Interface Definition ** 

** Inputs: C : W H 0 , CiJULIAN ** 

** Outputs: None ** 

** Module Processing Narrative Description: ** 

** ** 

** Displays menu of all utility programs avail- ** 

** able to the supervisor. Calls the appropriate ** 

** program after user selection. Additional level ** 

** of security required for packing Data Base. ** 

** ** 

** Superordinate Modules: SUP MENU1 ** 

** Subordinate Modules: ANALYST, PASS, COGUPDT, ADDRUPDT, ** 

** STATGEN,COGCNT,UTILNDX,DBPACK ** 

** Author: J.G. BOYNTON & R.G. NICHOLS ** 

** ** 

********************************************* *** *********** 

STORE T TO U-.CONTINUZ 

***** Display Options Available To The Operator 

DO WHILE U: CONTINUE 
E R AS E 

a 6,25 SAY ****** Utility Processing ****** 
a 9,29 SAY *1 - Analyst Update' 
a $+1,29 SAY '2 - Password Processing' 
a $+1,29 SAY '3 - COG Update' 
a ) $+1,29 SAY '4 - Address File Update' 
a $+1,29 SAY '5 - Internal Statistics Update' 
a $+1,29 SAY '6 - Cog Count' 

a $+1,29 SAY '7 - Be-Index Index Files For The Svstem' 
a $+1,29 SAY '8 - Clean Up The Database (Pack) • * 
a $+1,29 SAY '9 - Exit To Supervisor Menu' 

STORE ' 'TO U :REPLY 
a 19,40 GET U :REPIY PICTURE *9' 

READ 

***** Accept Menu Selection 

DO WHILE U: REPLY < '1' .OR. U : REPLY > '9' 
a 23,32 SAY 'Enter 1 - 9 Only' + CHR (7) 
a 19,40 GET U : REPLY PICTURE *9' 

READ 

ENEDO 

***** call Routine Necessary To Perform Desired Function 
DO CASE 

CASE U:REPLY = '9' 
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**** * 



*** * * 



$$ 3$C 2yC 3}c 



RELEASE ALL LIKE U r* 
RETURN 

CASS 0: REPLY = '1' 

DO C: ANALYST 
CASE UrREPLY = • 2 ' 

DC C : ? A SS 

CASE UrREPLY = '3' 

DO C: CO GUP DT 
CASE UrREPLY = '4* 

DO CrADDRUPCT 
CASE UrREPLY = '5' 

DO C: ST AT GEN 
CASE UrREPLY = *6' 

DO CrCOGCNT 
CASE UrREPLY = '7' 



Display Warning Tc The Operator 
ERASE 



a) 


1, 


25 


SAY 


****** Data Base Reindex ****** 




a) 


3, 


24 


SAY 


9 * 


###*********** 


* 


a) 


4, 


24 


SAY 


• * 




* 


a) 


5, 


24 


SAY 


1 * 


WARNING 


* 


a) 


6, 


24 


SAY 


• * 




* 


a) 


7, 


24 


SAY 


•* 


This Program Will Delete 


* 


a) 


8, 


24 


SAY 


• * 


All Index Files and Then 


* 


a) 


9, 


24 


SAY 


1 * 


Will Re-Index All Files 


* 


a) 


10, 


24 


SAY 


• 30C 


If Existing Files Are 




a) 


11, 


24 


SAY 


•* 


* 


a) 


12, 


24 


SAY 


• * 


Large, This Could Take 


* 


a) 


13, 


24 


SAY 


• * 


Hours 


* 


a 


14, 


24 


SAY 


•* 




* 


a) 

a) 

a) 


15, 

17, 

18, 


24 

24 

24 


SAY 

SAY 

SAY 


• * 

1 

« 


Are You SURE You Want To' 
Continue ' 


* 


a) 


19, 


24 


SAY 


« 


<Enter Y or N>' + CHR (7) 


STORE 


i 


• TC 


u 


r REP LY2 




a) 21, 
READ 


40 


GET 


U: 


REPLY2 





Accept Response From User 



DO WHILE ! (UrREPLY 2) O' Y' .AND. 
a 23,32 SAY 'Enter Y or N Onl 
a) 21,40 GET Ur R EPL Y2 PICTURE 
READ 
ENDDO 

a) 23, 32 SAY ' ' 

a) 17,40 SAY ' ' 




REPLY2) O' N' 
CHR (7) 



Accept ana Verify Password Before Executing Request 
IF Ur RE PLY 2 = 'Y' 

a) 21,30 SAY 'Enter Your Password ' 

STORE ' ' TO U r P AS SWORD 

SET CONSOLE OFF 

ACCEPT TC U : PAS SWORD 

SET CONSOLE ON 

IF U rP AS SWORD <> ' ' 

USE DrTECHCODE INDEX DrTECH 
FIND SC r WHO 

IF PSWD = U: PASSWORD .AND. # <> 0 
DO CrUTILNDX 
E LSE 

S 23,18 SAY 'Request ABORTED - Strike '; 
♦ 'Any Key To Continue' 
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WAIT 
END IF 
ENDIF 
ENDIF 

CASE U: REPLY = '8* 
DO C:D3PACK 
ENECASE 
ENDDO 

***** £NE CF PROGRAM 
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X. USSR REPORT MENU 



******************** ****** £ * * * £ ** * $ ** * £ $ ** ***************** 



** ** 

** Date: 11 January 1984 ** 

** Version: 1.0 ** 

** Module Name : RPTMENU ** 

** Module Purpose: Allow analyst to receive a listing ** 

** of his current open cases. ** 

** Module Interface Definition ** 

** Inputs: C:WHO, C:JULIAN ** 

** Outputs: None ** 

** Module Processing Narrative Description: ** 

** 

** Menu is provided in order to select a listing ** 

** cf open cases that belong to the Analyst ** 

** making the request. If report listing is ** 

** chosen, then module OCASERPT is called. Exit ** 

** is to return to MEN U1 . ** 

** Supercr dina te Modules: MENU1 ** 

** Subordinate Modules: OCASERPT ** 

** Author: J.G. BOYNTON ** 

** ** 



$ #3je # :£ # # # jfc 3$t $ $ # # ## 3$c 4t^c^c^c^c^c^c^c^c^c^c3}c3{c^c^c^c^:5{c4c if if if if if if if if if if 

STORE T TO C:TRU E 
DO WHILE C : TRU E 
ERASE 
* 

STORE ' ' TC V: CHOICE 

TEXT 



***** QUERY REPORT - AVAILABLE ***** 

1 - Openfile by Case 

2 - Exit 



Enter Your Choice 



ENDTEXT 
a) 19,38 GET 
READ 
* 

IF V: CHOICE 
* 

DC CASE 
CASE 

CASE 

ENECASE 



V : C H 01 C E 



>= ' 1' . AND. V: CHOICE < = 



V: CHOICE = • 1 ■ 

DO C :OC ASERPT 
V: CHOICE = '2' 
STORE F TC C :TR U E 



f 2' 



ELSE 



•? 

9 



< Please Answer With a 



2 ONLY >• 



132 



? » PRESS ANY KEY TO CONTINUE' 

-7 

WAIT 

END I? < V : C9CICE> 

ENDDO <C:TRUE> 

RELEASE ALL LIKE V : * 

RELEASE C : T RUE 

***** ENC OF PROGRAM 
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XI, SUPERVISOR REPORT menu 



ifc*#****##*#**#:**:*##;*:**:***#:**#**#*##*:*:#**#**#*::*##:*##:*#:}!*#;!: ## 
;££ 3$C3$C 

** Data: 15 January 1984 ** 

** V ersion : 1 . 0 ** 

** Module Name: SUPFPTS ** 

** Module Purpose: Provide Supervisor a menu of ** 

** * available reports. ** 

** ** 

** Module Interface Definition ** 

** Inputs: C : W H 0 , C:JULIAN ** 

** Outputs: None ** 

** Module Processing Narrative Description: ** 

** ** 

** Displays a menu of available reports and prompts ** 

** Supervisor to chose one or return to SUPMENU1. ** 

** Weekly and Monthly reports are directed to the ** 

** printer. Category! and Extended value reports ** 

** are created in text files on D: drive and may be ** 

** printed by 'typing* the file using standard ** 

** operating system functions. All reports should ** 

** be run only during 'off* hours due to their ** 

** large amount of resource utilization. ** 

## 

** Superordinate Modules: SUP MENU1 ** 

** Subordinate Modules: XX BWSTAT, XXMNST AT , CATIRPT, EXTV AL ** 

** Author: J.G. BOYNTON ** 

** ** 



ERAS E 

STORE T TO V:CONTINUE 

DO WHILE V: CONTINUE 

SET TALK OFF 

STORE • • TC V: CHOICE 

TEXT 



WELCOME TO THE QDR SPECIAL REPORT MENU 



1 - Eiweekly Statistics Report 

2 - Monthly Statistics Report 

3 - Category I Report 

4 - Extended Value Report 

5 - Exit to Supervisor Menu 



Enter your choice 

ENDTEXT 

2 19,35 GET V: CHOICE 
READ 



IF 



V: CHOICE >= "1" .AND. 



V: CHOICE <= "5" 



IF V : CHO ICE = "1" .OR. V : CHOICE = "2" 

ERASE 

2 3,15 SAY '** YOUR PRINTER MUST BE TURNED ON AND'; 

+' AVAILABLE ** • 
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7 



3 12,20 SAY ' PRESS ANY KEY TO START' 

W AIT 

a 1 22,10 SAY ' ' 

ENCIF 



CC CASE 

CASE V : CHOICE 52 "1" 

RELEASE ALL LIKE V:* 

DO C : X XEISTAT . PRG 
CASE V: CHOICE= "2" 

RELEASE ALL LIKE V:* 

DO C: X XMNSTAT .PEG 
CASE V : CHOI CE= "3" 

RELEASE ALL LIKE V:* 

USE D : CEEN1 INDEX D:OCASE1 

SET TALK OFF 

STORE 0 TO P: COUNT 

STORE C TO P: TOTAL 

SET FOFNAT TO SCREEN 

ER ASE 

SET ALTERNATE TO D : CATIRPT 
SET ALTERNATE ON 
? 'Cats: ' , E AT E () 



? ' 

+ ' CATEGORY I REEORT 
7 

? ' CASE # 

+ ' OPEN CATE 



***** QDR ' ; 

***** » 

EXTENDED PRICE' ; 
COG ' 



STORE 0 TO P: PAGE 
STORE 5 TO ROW 
DO WHILE .NOT. EOF 

STCBE P: TOTAL+ 1 TO P : TOT AL 
IF C AT= ' 1 ' 

? ' ' , C AS E , ' ' , EPRC , ; 

' ',$ (DATES ,11,5) , ; 

' ' ,COG 

STORE ROW+1 TO ROW 
SKIP 

STORE P: COUNT+1 TO PrCOUNT 
IF ROW > 6 0 
ERASE 
? CHR ( 1 2) 

STORE 0 TO ROW 

STORE P : P AG E+ 1 TO PrPAGE 
•? 



7 



PAGE ', PrPAGE 
CASE # 



EN 

•? 

♦ 

-P 

•? 



? i 

■? 

? ' 

+ ' ENDED PRICE 

+ ' COG ' 

7 

STORE ROW+4 TO ROW 
ENDIF <P AGE IS FULL> 

ELSE 

SKIP 

ENDIF <NO T CAT I> 

DDO 



EXT ' * 
OPEN DATE'; 



CAT 1 CASES:' ,P:COUNT 
TOTAL CASES :' ,P;TOTAL 



# # # # # 



END OF CAT' ; 
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❖ * I 



+ ' EGORY I REPORT 
? CHR (12) 

SET ALTERNATE OFF 
SET ALTERNATE TO 
? CHR 



HI 



? CHR 

y o ic ' 

a" 12, 20 SAY 



a 13,20 

a 20,2 0 

WAIT 



SAY 

SAY 



' Ycu May Receive Your Cat I '; 

+ ' Report On ' 

' D: C AT IRPT. TXT ' 

* Press Any Key To Continue' 



CASE V;CHOICE= "4'' 

RELEASE ALL LIKE V:* 

USE D : CPEN1 INEEX E : EXT VAL 

REINDEX 

GOTO TCP 

SKIP 

SET T AIK OFF 
STORE 0 TO P: COUNT 
STORE 0 TO P:TOTAL 
SET FORMAT TO SCREEN 
ER AS E 

SET ALTERNATE TO D : EXTV ALUE 
SET ALTERNATE ON 
? 'Date: ' , D ATE () 



? • ***** QDR' 

+' EXTENDED VALUE REPORT ***** 

•? 

? ' 

+ » 

+ » 

? ' CA 

+ ' NSN 

+ ' EXT PRICE 

■7 

STORE 0 TO P: 

STCRE 6 TO RO 
DO WHILE .NO 
STORE 

■? i 



$ (NSN 
$ (NSN 
$ (NOM 

t t 

$ fDAT 
STORE 
STORE 
IF RO 
E 

•7 

• 

s 

s 



SCREENING' 

SE # COG SM 

CAT NOMEN UIC 

OPEN DATE CODE/DATE' 

PAGE 

W 

I. EOF 

P : TOT AL + 1 TO P .-TOTAL 
' .CASE ,' ' ,COG, ' '.SM,' 

,1,4) ,'-',$(NSN,5,2) 

' ' CAT, ' • 



' 7 ' 7! V 

EN, 1,10),' ' .UIC,' 5 , EPRC . ; 

g$(DATES,11,5) ,' ' , S C R , ' / ' 

ROW+1 TO ROW 
P: COUNT+1 TO P:COUNT 
W > 60 
RASE 
CHR (12) 

TORE 0 TO ROW 
TORE P : P AGE+ 1 TO P : PAGE 



, « 



t 

t 






? ' PAGE ',P:PAGE 

"7 

? ' 

+ * 

+ * 

+' SCREENING' 

? ' CASE # COG 

+' NSN CAT 

+ ' UIC EXT PRICE 

+ ' DATE CODE/DATE' 

STORE ROW +4 TO ROW 



1 . 

t 

t • 

t 

t • 

t 



M ' ; 
NOMEN' ; 
OPEN' ; 
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ENDIF <P AGE IS FULL> 
SKIP 



ENDDO 




TOTAL CASES : ' : TOTAL 






ND OF ' 



♦'EXTENDED VALUE REPORT *****' 

? CHR (12) 

SET ALTERNATE OFF 
SET ALTERNATE TO 
? CHR 11) 

? CHR (7) 

ER ASE 

a ) 12,20 SAY ' You Hay Receive Your Extended'; 

X • U n 1 no P ann C\~> • 



WAIT 

CASE V: CHOICE= "5" 
ERASE 
RETURN 

ENDCAS E 
ERASE 

STORE T TO V.-CONTINUE 
STORE ' ' TO V: CHOICE 



?' < Please Answer With 1-5 ONLY >' 
ENDIF <V:CHCICE> 

ENDDO < V : CO NTINU E> 

***** END OF PROGRAM 



3 13,20 SAY ' 
S 20,20 SAY ' 



D: EXTVALUE.TXT ' 
Press Any Key To Continue' 



ELSE 
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XII. 2 OBRJf MODULE 

4444*44444*4:4*4* 4* 4*4*44 4* **************4**** ************** 
** ** 

** Date: 23 Nov 1 983 ** 

** V ersicn : 1 . 0 ** 

** Module Name: QUERY ** 

** Module Eurpcse: Free Format Query Against the OPEN ** 

** ar.d CLOSED Data Files ** 

** ** 

** Module Interface Definition ** 

** Inputs: C : W H 0 , C:JULIAN ** 

** Outputs: None ** 

** ** 

** Module Frocessina Narrative Description: ** 

** " ** 

** Accepts Selection and Display Parameters from ** 

** the user and generates the necessary Data Base ** 

** Commands to extract the desired information. ** 

** Temporary files are created as the QUERY is ♦* 

** being processed. These files are deleted upon ** 

** exiting. The user may either print or display ** 

** the information extracted. ** 

** ** 

** Superordinate Modules: MENU1 ** 

** Subordinate Modules: None ** 

** Author: R. G. NICHOLS ** 

** ** 

*** * ********** * * ** 4 4 *4 t*444 $ 4$4c $ 4$ 4444 $$ $44 44$ 444 $ $ 4444: $ 44 ** 

44=*** Display Menu Selection Options and Accept Response 

♦SET COLOR TO 112, 6 

STORE ' ' TC Q: REPLY 

ERASE 

a 6,26 SAY ****** Query Processing ****** 
a 10,27 SAY 'THIS PROGRAM ALLOWS YOU TO* 
a 12,28 SAY 'QUERY THE QDR DATA BASE' 
a 15,32 SAY '1 - Continue' 
a 17,32 SAY '2 - Return to Menu' 
a 20,40 SAY ' ' GET Q : REPLY 
READ 

DO WHILE Q: REPLY <> '1' .AND. Q: REPLY <> '2' 

a 23,20 SAY 'Enter 1 or 2 for Your Response' +chr ( 7) 
a 20,40 SAY ' ' GET Q : RE PLY 

READ 
ENDDO 

44 *** if Response is to Exit Release all Memory Variables 
*4*** and Return to MENU1 

IF Q : REPLY = • 2' 

REIEASE ALL LIKE £:* 

RETURN 

ENDIF 

44 *** Allow User to Select Files to Run The Query Against 

STORE ' ' TC Q: REPLY 

ERASE 

a 6.24 SAY ' *** Query Processing Module *** ' 
a 10,20 SAY 'Select File (s) to be Used for this Query' 
a 12,25 SAY '1 - OPEN FILS' 
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a 14,25 SAY '2 - CLOSED FILE* 

3 16,25 SAY *3 - Merged OPEN and CLOSED File' 

3 20,40 G El Q: REPLY PICTURE '9* 

READ 

DO WHILE Q : REP LY <>* 1 ' .AND. Q:REPLY<>’2* . AND.Q: RSPLYO » 3 ' 
3 23,28 SAY ’Entry most 3e 1. 2, or 3* + CHR(7) 

3 20,40 GET Q :RE PlY PICTURE *9' 

READ 
END DO 

j 1 * 

STOR £ 10~TO 0:CNTR 

STORE ' Q :L' + STE(Q:CNTR,2) TO Q: LINE 
DO CASE 



***** jf OPEN File Is Selected Indicate 0 File Selection 

CASE Q : R EPL Y = ' 1 ' 

STORE 1 TO QlNFFASSES 
STCRE 'O' TO Q : FILE 

***** jf CLOSE File Is Selected Indicate C File Selection 

CASE Q : R EPL Y = ' 2 ' 

STCRE 1 TO Q : N F PASSES 
STCRE *C* TO Q : FILE 

***** xf OPEN File Is Selected Indicate 0 File Selection 
***** and indicate Two Passes Required For Execution of 
***** Generated Code 



CASE C: REPLY = ' 3 • 

STCRE 2 TO Q: NFPASSES 
STCRE 'O' TO Q : FILE 
fndt a qp 

STORE ' ' TO Q : S ELCMD 1 

STORE ' ' TC Q : S ELC M E2 

STORE '00' IO Q: SELECT 
STORE 0 TC C:ITEM 

***** start Loop To Accept Selection Criteria 
DO WHILE Q : ITEM <= 4 .AND. Q: SELECT <> '58' 



***** Display First Screen of Menu 



IF Q : SEL ECT = '00* 
* - SCREEN 1 MENU - 

ERASE 



3 2 
3 3 
3 4 

3 5 
3 5 
SET 
3 5 
3 5 
SET 



3 

3 

3 

3 

3 

3 

3 

3 

3 



20 SAY 
20 SAY 
0 SAY 

+ ' -- 

0 SAY 'Data 
25 SAY ' • ' 
COLOR TO 
27 SAY ' 

53 SAY ' 
COLOR TO 



'Enter Selection 
' (A Maximum cf 5 



Criteria For This Query 
Items May Be Selected)' 



- I 



Eleme nts' 



51 SAY 
25 SAY 
51 SAY 
1 SAY 
25 SAY 
5 1 SAY 
71 SAY 
1 SAY 
25 SAY 



i « 



12,2 

8 End Element: select' 

9 Abandon Query' 

12, 6 



•01 

i i 

* 

I f 

' t 

'02 

i t 



Case Number' 

11 Origin Code' 

21 Interim Repor' 

Date' 

Cog' 

12 Type Document' 
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<x 

3 

a 

a 

0) 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 



8,5 1 
9, 1 
9,2 5 



SAY 



SAY 



SAY 



i i 

'03 

S J 



« 

04 
? j 

9 V 
• 

' 1 

05 

i « 
i » 

06 

I T 

t 

13,1 SAY '07 
13, 25 SAY ' ! 

+ ' 

08 

• t 

i t 

09 



10, 1 SAY « 

10.25 SAY 

10.51 SAY 
10,71 SAY 
11,1 SAY • 

11 . 25 SAY 

11.51 SAY 
12, 1 SAY ' 

12.25 SAY 

+ 

i 



3 

3 

3 

3 



14, ISAY' 

14.25 SAY 
14,51 SAY 
15,1 SAY ' 

+ ' 

16, 1 SAY ' 

16.25 SAY 
16, 46 SAY 

17.0 SAY ' 

+ ' 

18. 0 S AY ' 
18,42 SAY 
19 ,10 SAY 

+ ' 

21,27 SAY 



1 0 
i i 



22 Origin Prep Date' 

MSN ' 

13 Discovery Date 

23 Document Number 1 
Cateq ory ' 

14 Date Received 5 
24 Report Centro* 

Number ' 

Nomen clature' 

15 Open Date' 

2 5 F SCM ' 

UIC of Origin' 

16 Transmittal Date 

26 Ccntract Number' 
Unit of Issue' 

17 I M Response Dare 

27 Credit Code' 

Unit Price' 

18 Close Date' 

28 Screening Code' 
Quantify Deficient 

19 Reopen Date 
Extended Price' 

20 Screen Report' 



t » 



1 1 



1 1 



29 SMIC* 



Date 



30 Next Page of Elements' 



- I 
• I 



b - Exclude' 
Less Than 
GET ; 



Relations a - Include 
'c - Range d - Equal' 

'e - Not Equal f - 

g - Greater Than' 

'Enter Data Element Number 
Q: SELECT PICTURE '99' 

READ 

DO WHILE Q : SELECT < '00' .OR. Q : SELECT > '59' 

3 23,26 SAY 'Select From Above (00 - 59)' + CHR(7) 
3 21,27 SAY 'Enter Data Element Number ' GET ; 

Q : SEL EC1 PICTURE '99' 

READ 

ENCDO 

3 23,26 SAY ' ' 

ELSE 



***** Display Second Screen of Menu 



IF Q: SELECT = 

Irase 

3 2,20 SAY 

+ 

3,20 SAY 
4,0 SAY 

* i 



3 

3 



•30' 

'Enter Selection Criteria For This'; 

' Query' 

' (A Maximum of 5 Items May Be Selected) ' 

J 



3 


5,0 


SAY 


' Cata 


Elements' 


3 


5.25 


SAY 


' ! ' 




SET COLCR 


TC 112,2 


3 


5,27 


SAY 


' 58 


End Element Select 


3 


5,53 


SAY 


' 59 


Abandon Query' 


SET COLCR 


TC 1 12, 6 


a 


5,51 


SAY 


9 I 9 




a 


6,25 


SAY 


9 9 9 

• 




a 


6,51 


SAY 


9 1 9 

• 


9Q Region' 


a 


7,1 


SAY 


' 51 


a 


7,25 


SAY 


i t 

• 


40 Deficiency Ver 
49 Action Code' 








+ « 


a 


8,1 


SAY 


' 32 


Type Defect' 

41 Deficiency Resp 
50 Cost Code' 


a 


8,25 


SAY 


i i 
• 

+ ' 


a 


9,1 


SAY 


• 33 


Vendor Liab Code' 


a 


9,25 


SAY 


i i 

• 


42 New-Repair/O vhl 



f 9 ♦ 



f 9 



f 9 
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* * 

*** * * 
* Jjc 



* * 
$$$ sjs 



^Jc 2$C 3*c >V 
s)c^n}t s}c 

* * 
afc# ^c ^c 3*c 
## j$c 3$c 









+ 


t 


51 Status Code' 




a) 


10, 


1 


SA? 


' 34 


Action Point' 




3 


10, 


25 


SAY 


• f 
• 


43 Date Mfg/Ovhl ' 




d) 


10, 


51 


SAY 


1 ! 
• 


52 Cause Code' 




3 


11, 


1 


SAY 


'35 


Screen Quantify' 




3 


11, 


25 


SAY 


It l 


44 Opn Time at Failure ! ,f ; 










+ " 


53 Action Dis'n" 




3 


12, 


1 


SAY 


'36 


Analyst Code' 




3 


12, 


25 


SAY 


1 f 
• 


45 GFM ' 




3 


12, 


51 


SAY 


t t 

• 


54 Part Number' 




3 


13, 


1 


SAY 


'37 


Quanxity Inspected 


1 1 • 

* jl _ 








+ ' 


46 


Work Unit Code ! 


55 • 


3 


13, 


58 


SAY 


'Lot/S er/Batch ' 




3 


14, 


1 


SAY 


•38 


Quantity Received 


1 1 . 

• Z - 








+ • 


47 


Discovery Code ! 


5p • 


3 


14, 


58 


SAY 


'Def Item' 




3 


15, 


1 


SAY 


'39 


Quantity m Stock 


i i • 

• V 








+ • 


48 


Return Code ! 


57 • 


3 


15, 


58 


SAY 


' Wi 


arra nty ' 




3 


16, 


1 


SAY 


•58 


End element Select 


i i • 

• 9 








+ ' 


59 


Abandon Query' 




3 


16, 


51 


SAY 


i i 

m 


00 Prev Page of Elemenxs' 


3 


17 


n 


SAY 


l 








u 








3 


18, 


0 


SAY 


'Relations a - Include 


b - Exclu 



5) 18 r 42 SAY 'c - Range d - Equal' 

3 19,10 SAY 'e - Net Equal f - Less Than ' 

+ ' g - Greater Than' 

3 21,27 SAY 'Enter Data Element Number ' GET ; 

Q : SEL ECT PICTURE '99' 

READ 

DO WHILE 0 : SELECT < '00' .OR. Q : S ELECT > '59' 

3 23 ,26 SAY 'Select From Above (00 - 59)'+CHH(7) 
3 21,27 SAY 'Enter Data Element Number ' ; 

GET Q : SELECT PICTURE '99' 

READ 

ENDDO 

a ) 23,26 SAY ' ' 

ELSE 

Begin Case To Generate Formats For Entering Initial 
Values - Each Selected Item Has Its Name and Picture 
Stored in an Indirect Variable 

DO CASE 

If Termination Requested Release Local Memory and 
Return to Calling Routine 

CASE Q : S ELECT = '59' 

RELEASE ALL LIKE Q:* 

RETURN 

Begin Generating Selection Code 
If a Character Field Set Character Flag 
Lead The Picture for the Data Field 
Initialize the Data Field and Then Continue 
To Generate Code 

CASE Q : S ELECT = '01' 

STORE 'CASE' TO Q: SELITEM 
STORE " ' 99999 9 A' " TO Q:SELPIC 
STORE ' ' TO Q: INIT 1 

STORE T TO Q: CHAR 
STORE 'C:SELCMD1 ' TO Q: SELCMD 
CASE Q : S ELECT = '02' 

STORE 'COG' TO Q : SELITEM 
STORE '" 9 A ' " TO QiSELPIC 
STORE T TO Q: CHAR 



141 



STORE ' ' TO Q : INIT1 

STORE ' Q : SELC MD 1 ' TO QrSELCMD 
CASE Q: S ELECT = *03' 

STORE 'NSN* TO QrSELITEM 

STORE ‘"9999XXXXX9999 * " TO Q:SELPIC 

STORE T TO Q: CHAR 

STORE ' * TO Q : INIT 1 

STORE ' Q : SELC MD 1 1 TO Q: SELCMD 
CASE Q : S ELECT = '04' 

STORE 'CAT' TO QrSELITEM 
STORE ’"9"' TO QrSELPIC 
STORE ' • TO Q: I NIT 1 

STORE T TO Q: CHAR 
STORE ' Q: SELC MD1 ' TO Q: SELCMD 
CASE Q : S EL ECT = '05' 

STORE • NOMEN' TO QrSELITEM 
STORE "'XXXXX XXXXXXXXXXXXXX' " TO Q 
STORE ' ' TO Q: I 

STORE T TO Q: CHAR 
STORE ' Q : SELC MD 1 ' TO Q: SELCMD 
CASE QrSELECT = '06' 

STORE *UIC TO QrSELITEM 
STORE " * AXXXX X ' " TO QrSELPIC 
STORE ' ' TO QrINITl 

STORE T TO Qr CHAR 
STORE ' Qr SELC MD1 ' TO Qr SELCMD 
CASE Q r S ELECT = '07' 

STORE 'UI' TO QrSELITEM 
STORE "'AA'" TO QrSELPIC 
STORE ' ' TO QrINITl 

STORE T TO Qr CHAR 
STORE ' Q : SELC MD 1 ' TO Qr SELCMD 
CASE Qr S ELECT = '08' 

STORE ' UPRC ' TO QrSELITEM 
STORE "'999999.99''' TO QrSELPIC 
STORE S TO Qr NR 
STORE 2 TO Qr EEC 
STORE 0 TO Qr INIT1 
STORE F TO Qr CHAR 
STORE ' Qr SELC MDl ' TO Qr SELCMD 
CASE Qr SELECT = '09' 

STORE ' QTYDEF ' TO QrSELITEM 
STORE '" 999999'" TO QrSELPIC 
STORE 6 TO Qr NR 
STORE 0 TO Qr EEC 
STORE 0 TO Qr INIT1 
STORE F TO Qr CHAR 
STORE ' Qr SELC MDl ' TO Qr SELCMD 
CASE Q: SELECT = '10* 

STORE ' EPRC' TO QrSELITEM 
STORE "'999999999.99'" TO QrSELPIC 
STORE 12 TO Q r NR 
STORE 2 TO Qr EEC 
STORE 0 TO Qr INIT1 
STORE F TO Qr CHAR 
STORE ' Qr SELC MDl ' TO Q r SELCMD 
CASE Qr SELECT = '11* 

STORE 'ORG' TO QrSELITEM 
STORE "'XXX'" TO QrSELPIC 
STORE ' ' TO QrINITl 

STORE T TO Qr CHAR 
STORE ' Qr SELC MDl * TO Qr SELCMD 
CASE Qr SELECT = ' 12 ' 

STORE 'DOC' TO QrSELITEM 
STORE "'9'" TO QrSELPIC 
STORE ' • TO QrINITl 
STORE T TO Qr CHAR 
STORE ' Qr SELC MD 1 ' TO Qr SELCMD 
CASE Qr SELECT = '13' 
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STORE ' $ (DATE S f 1 r 5) * TO Q: SELITEM 
STORE " ' 99999 ' " TO QiSELPIC 
STORE 1 ' TO QHNIT1 

STORE I TO Q: CHAR 
STORE ' Q iSELC MD1 ' TO QlSELCMD 
CASE Q : SELECT = '14' 

STORE • $ (DATES, 6, 5) ' TO Q : SELITEM 
STORE " ' 99999 ' " TO QiSELPIC 
STORE ' ' TO Q : IN IT 1 

STORE T TO Q: CHAR 
STORE ' Q: SELC MD1 ' TO QlSELCMD 
CASE Q: SELECT = '15' 

STORE '$ (DATES, 1 1,5) ' TO Q : SELITEM 
STORE •" 99999 « r ' TO Q:SELPIC 
STORE ' • TO Q:INIT1 

STORE T TO Q: CHAR 
STORE ' C I S EL C M D 1 ' TO Q : SELCM D 
CASE Q: SELECT = '16' 

STORE '$ fDATES. 16,5) ' TO Q : SELITEM 
STORE '" 99999 ' " TO Q:SELPIC 
STORE ' ' TO QHNIT1 

STORE T TO Q: CHAR 
STORE ' Q: SELC MD1 ' TO QlSELCMD 
CASE Q: SELECT = ' 17' 

STORE * $ {DATE S f 26 ,5) ' TO Q : S ELITEM 
STORE "' 99999 ' r ' TO QiSELPIC 
STORE ' ' TO Q : IN IT 1 

STORE T TO Q: CHAR 
STORE ' Q I S ELC MD1 ' TO QlSELCMD 
CASE Q: SELECT = '18' 

STORE 'SEDATES, 36, 5) ' TO Q : SELITEM 
STORE "' 99999 ' ' ' TO QiSELPIC 
STORE ' ' TO Q I IN IT 1 

STORE T TO Qi CHAR 
STORE * Q i SELC MD1 ' TO QlSELCMD 
CASE Q’SELECT = '19' 

STORE 'SEDATES, 41 ,5) • TO Q I SELITEM 
STORE "'99999 ''' TO QiSELPIC 
STORE ' ' TO Q i IN IT 1 

STORE T TO Qi CHAR 
STORE 'QlSELCMDI ' TO QlSELCMD 
CASE Qi SELECT = '20' 

STORE ' $ (D ATE S r 21*5) ' TO Q I SELITEM 
STORE "'99999 ' f ' TO QiSELPIC 
STORE ' ' TO QHNIT1 

STORE T TO Qi CHAR 
STORE 'QlSELCMDI' TO QlSELCMD 
CASE Qi SELECT = '21' 

STORE ' $ (DATE S ,3 1 , 5) ' TO Q I SELITEM 
STORE '"99999 ' f ' TO QiSELPIC 
STORE ' ' TO Q I IN IT 1 

STORE T TO Qi CHAR 
STCRE 'QlSELCMDI' TO QlSELCMD 
CASE Qi SELECT = ' 22' 

STCRE •$( DATES.46,5)' TO Q I SELITEM 
STORE '"99999 "' TO QiSELPIC 
STORE ' ' TO QHNIT1 

STORE T TO Qi CHAR 
STORE 'QlSELCMDI' TO QlSELCMD 
CASE Qi SELECT = '23' 

STORE ' COCNO ' TO Qi SELITEM 
STORE '" XXXXX X99999999' " TO QiSELPIC 
STORE ' ' TO QHNIT1 

STORE T TO QlCHAB 
STORE 'QlSELCMDI' TO QlSELCMD 
CASE Qi SELECT = '24' 

STORE 'REPCON' TO QiSELITEM 
STORE '" XXXXXX999999' " TO QiSELPIC 
STORE ' • TO Q I IN IT 1 
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STORE I TO Q: CHAR 
STORE ' Q i S ELC MD1 ' TO QiSELCMD 
CASS Q: SELECT = ' 25 ' 

STORE *r SCli* TO Q: S EL IT EM 
STORE "'XXXXXX'" TO QiSELPIC 
STORE » * TO Q : INIT 1 

STORE T TO Q; CHAP 
STORE 'QiSELCMDI* TO QiSELCMD 
CASE Q: SELECT = '26* 

STORE * KUM ' TO QiSELITEM 

STORE " 'XXXXX X99AXXXXXXXX"* TO QiSELPIC 
STORE • ' TO Q: INIT 1 

STORE T TO Q: CHAR 
STORE 'QiSELCMDI' TO QiSELCMD 
CASE Q: SELECT = *27* 

STORE ' CR ' TO QiSELITEM 
STORE '"A"' TO QiSELPIC 
STORE ' • TO Q: INIT1 
STORE T TO Q: CHAR 
STORE ' Q: SELC MD1 • TO QiSELCMD 
CASE Q : S ELECT = *28* 

STORE 'SCR* TO QiSELITEM 
STCRE "'XXX' " TO QiSELPIC 
STORE ' • TO QiINITI 

STORE T TO Q: CHAR 
STORE * Q: SELC MD1 ' TO QiSELCMD 
CASE Q: SELECT = '29* 

STORE *SM' TO QiSELITEM 
STORE "'AX' " TO QiSELPIC 
STORE ' • TO QiINITI 

STCRE I TO Q: CHAR 
STORE 'Ql SELCMD1 ' TO QiSELCMD 
CASE Q I SELECT = *31' 

STORE 'C9Q ' TO QiSELITEM 
STCRE "'X'" TO QiSELPIC 
STORE » ' TO QiINITI 
STORE I TO Ql CHAR 
STORE * Q I SELC MD1 • TO QiSELCMD 
CASE Q: S ELECT = *32* 

STORE 'DEF' TO QiSELITEM 
STORE « • 9 9 • •• T0 Q: SELPIC 
STORE ' ' TO QiINITI 

STORE T TO Q: CHAR 
STORE 'Ql SELCMD1 ' TO QiSELCMD 
CASE Q I SELECT = '3 3' 

STORE ' VLC ' TO QiSELITEM 
STORE "'A'" TO QiSELPIC 
STORE ' ' TO QiINITI 
STORE T TO Ql CHAR 
STORE ' Ql SELC MD1 ' TO QiSELCMD 
CASE Q I SELECT = '34' 

STORE ' ACTPT* TO QiSELITEM 
STORE '" AXXXXX99999' " TO QiSELPIC 
STORE • ' TO QiINITI 

STORE T TO Ql CHAR 
STORE 'QiSELCMDI' TO QiSELCMD 
CASE Ql SELECT = '35' 

STORE ' SCRQTY ' TO QiSELITEM 
STORE '*'99999 9"' TO QiSELPIC 
STORE 6 TO Ql NR 
STORE 0 TO Ql EEC 
STORE 0 TO Ql INIT1 
STORE F TO Ql CHAR 
STORE 'QiSELCMDI' TO QiSELCMD 
CASE Q I SELECT = '36' 

STORE 'WHO' TO QiSELITEM 
STORE "'XXXX* » TO QiSELPIC 
STORE ' ' TO QiINITI 

STORE T TO Ql CHAR 



144 



STORE 'Q:SELCMD1' TO QlSELCMD 
CASE Q : S ELECT = '37* 

STORE ' QTYIN S ' TO Q : S EL IT EM 
STORE '" 99999 9* " TO QiSELPIC 
STORE 6 TO Q: NR 
STORE 0 TO Q: EEC 
STORE 0 TO 0: INIT1 
STCRE F TO Q: CHAR 
STORE 6 TO Q: NR 
STORE * C : SELCMD2 ’ TO Q : SELCMD 
CASE Q: SELECT = '38' 

STORE 'QTYREC* TO Q : SELITEM 
STORE '" 999999*" TO Q:SELPIC 
STCRE 6 TO Q: NS 
STORE 0 TO Q: DEC 
STORE 0 TO Q: INIT1 
STORE F TO Q: CHAR 
STCRE 6 TO Q: NR 
STORE * Q: SELC MD2 * TO Q: SELCMD 
CASE Q : S ELECT = '39* 

STORE * QTY STK * TO Q: SELITEM 
STCRE '"99999 9"' TO Q:SELPIC 
STORE 6 TO Q: NR 
STORE 0 TO Q: EEC 
STORE 0 TO Q: INIT1 
STORE F TO Q: CHAR 
STORE 6 TO Q: NR 
STCRE ' C : S ELC MD2 ' TO Q : SELCMD 
CASE Q: SELECT = *40* 

STORE ' EEFV' TO Q: SELITEM 
STORE '"A"' TO Q : SELPIC 
STCRE * " TO Q: INIT1 
STORE T TO Q: CHAR 
STORE ' Q : S ELC MD2 ' TO QlSELCMD 
CASE Q: SELECT ='41' 

STCRE ' EEFR' TO Q : S EL IT EM 
STORE "'A'" TO Q : SELPIC 
STORE " " TO QsINITI 
STORE T TO Q: CHAR 
STCRE ' Q :SELC MD2 ' TO Q : SELCM D 
CASE Q: SELECT = *42* 

STORE 'ITEM' TO Q: SELITEM 
STORE "'A'" TO Q :SELPIC 
STORE « " TO Q : INIT1 
STORE T TO Q: CHAR 
STORE 'C:SELCMD2' TO Q : SELCM D 
CASE Q: SELECT = '43' 

STCRE 'CVER' TO Q: SELITEM 
STORE " ' 99999 ' " TO Q: SELPIC 
STORE « " TO Q : INIT1 

STORE T TO Q: CHAR 
STORE ' Q :S ELC MD2 ' TO Q : SELCM D 
CASE Q: SELECT = *44' 

STORE ' CTF ' TO Q : SELITEM 
STORE A9999 ' " TO Q: SELPIC 
STORE " " TO QsINITI 

STORE T TO Q: CHAR 
STORE ' Q : SELC MD2 ' TO Q : SELCMD 
CASE Q: SELECT = '45' 

STORE 'GOV' TO Q : SELITEM 
STORE "'X'" TO Q :SELPIC 
STORE « " TO Q: INIT1 
STORE T TO Q: CHAR 
STORE ' Q :S ELCMD2 ' TO Q: SELCMD 
CASE Q: SELECT = '46' 

STORE 'WUC' TO Q:SELITEM 
STORE "'XXXXXXX'" TO Q:SELPIC 
STORE " " TO QjINITI 

STORE T TO Q: CHAR 
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STORE 'Q:SELCMD2* TO Q: SELCMD 
CASE Q : S El ECT = '47' 

STORE ' DI S ' TO Q : SELITEM 
STORE 81 ' A A 8 ! * TO QiSELPIC 
STORE '' " TO QjINITI 

STORE T TO Q: CHAR 
STORE ' C: SELC MD2 ' TO Q: SELCMD 
CASE Q: S ELECT = '48* 

STORE 'RETC' TO Qi SELITEM 
STORE '"9"' TO Q :S ELPIC 
STORE " " TO QjINITI 
STORE T TO Q: CHAR 
STORE ' Q : SELC MD2 ' TO Q: SELCMD 
CASE 0‘SEIECT = '49' 

STORE ' ACTTKN ' TO Q: SELITEM 
STORE "'AAA"' TO Q:SELPIC 
STORE " » TO Q: INITl 

STORE T TO Q: CHAR 
STORE ' Q : SELC MD2 ' TO Q: SELCMD 
CASE Q : S ELECT = '50' 

STORE ' COSTC ' TO Q: SELITEM 
STORE "'A'" TO Q :S ELP IC 
STORE « " TO Q: INITl 
STORE T TO Q: CHAR 
STORE ' Ql SELC MD2 ' TO Q: SELCMD 
CA^E n*^FTFCT = 'SI' 

STORE ' STATOSC' TO Q: SELITEM 
STORE '"AA"' TO QiSELPIC 
STORE " » TO Q : INIT 1 

STORE T TO Q: CHAR 
STORE ' 0: SELC MD2 ' TO Q: SELCMD 
CASE Q: SELECT = • 52' 

STORE 'CAUSEC' TO Q: SELITEM 
STORE '"A'" TO Q;S ELPIC 
STORE " " TO 0: 1 NIT 1 
STORE T TO Q: CHAR 
STORE * Q ; SELC MD2 ' TO Q: SELCMD 
CASE Q: SELECT = *53' 

STORE ' ACTDI S P ' TO Q: SELITEM 
STORE '"A"' TO QiSELPIC 
STORE " " TO QjINITI 
STORE T TO Q: CHAR 
STORE * Qi SELC MD2 ' TO Q : SELCMD 
CASE Q : SELECT = '54' 

STORE ' MFG ' TO Q : SELITEM 
STORE "'XXXXXXXXXXXXXXXX' " TO Q:SELPIC 
STORE » " TO Q: INITl 

STORE T TO Q: CHAR 
STORE • Q : SELC MD2 ' TO Q: SELCMD 
CASE Q : S ELECT = '55' 

STORE 'LOT' TO Q : SELITEM 
STORE "'XXXXXXXXX' " TO QiSELPIC 
STORE » " TO QjINITI 

STORE T TO Ql CHAR 
STORE ' Q: SELC MD2 ' TO Q: SELCMD 
CASE Q : S ELECT = '56* 

STORE 'DITEM' TO Q: SELITEM 

STORE "' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "' ; 

TO QiSELPIC 
STORE " 

TO Q: INITl 
STORE T TO Q: CHAR 
STORE ' Q: SELC MD2 ' TO Q: SELCMD 
ENCCASE 

***** Display Selection Relations and Accept Relationship 
***** and Initial Search Values 

IF QjSELECTO'OO' .AND. QjSELECTO '30 ' .AND.; 
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***** 



*** * * 



*** * * 



*** * * 
*** * * 



*** * * 



*** * * 



Q: SELECTO '58 ' 
STCRE Q:ITEM ♦ 
ERASE 

STORE ' 8 TO Q 

3 06,0 SAY ' Re 

2 06,42 SAY • c 

3 C7, 10 SAY »« 

+ * 9 

a) 10,10 SAY ' 2 

Q 

READ 



1 TO Q : IT EM 
: SELECT 

lations a - Include 

- R an g e d - Equal 1 

_ >T .-s tT ,-r *•» -5 1 T 

L i C. 1 ^ U d J. i- 

- Greater Than' 

nter Relationship for 
: SEL ECT PICTURE 'A' 



b - Exclude* 



T - . T 1 U » v 



« 



Selection * GET ; 



Validate Entered Value 



DO WHILE ! (Q : S ELECT) < * A' .OR. .' (Q: SEL ECT \ > *G* 

3 23,13 SAY ‘Enter Relationship as Dispaayed 
+ 'Above (A - G) ' + t HR (7) 

3 10,10 SAY 'Enter Relationship for Selection 
GET Q: SELECT PICT ' A ' 

READ 

ENDDC 

3 23, 18 SAY ' • 

+ ' ' 



If Range Selected, Accept Two Initial Values 

IF ! ( C:S EL ECT ) = ' C' 

STORE Q :I NIT 1 TO Q:INIT2 

3 14,10 SAY 'Enter MINIMUM Value Allowed ' ; 

GET Q : INIT 1 PICT &Q: SEL PIC 

READ 

3 16,10 SAY 'Enter MAXIMUM Value Allowed ' ; 

GET Q : INIT2 PICT &Q:SELPIC 

READ 

Ensure That Values are Properly Ordered 

IF QsINITI > Q : INI T2 

STORE Q : INIT1 TO Q :T EMP 
STORE Q : INIT2 TO QsINITI 
STORE Q: TEMP TO Q:INIT2 
RELEASE QsTEMP 
ENDIF 

If Character Field, Place Quotas Around Initial 
Value (s) 

IF Q-.CHAR 

STORE (Q:I NIT 1) +"• " TO Q:INIT1 

STORE (Q:I NIT2) TO Q:INIT2 

ELSE 



Fermat Numerics to be Characters For Code Generation 



STORE STB (QsINITI, QsNR.QsDEC) TO Q:INIT1T 
STORE Q : INIT IT TO QsINITI 

STORE STB (Q: INI 12,Q:NR,Q:DEC) TO Q:INIT2T 
STORE Q : I NIT2T TO Q:INIT2 
RELEASE QsINITI 1, Q:INIT2T 
ENDIF 

Form Partial Command Line 
IF &Q * S ELC M E = ' ' 

STORE Q: SELITEM+'> , +Q:INITl+' . AND. • ♦ Q : S ELIT EM +; 

' < ' + Q :INIT2 TO &Q r'SELCMD 

ELSE 

STORE &Q : SELCMD + ' .AND.' +Q: SELITEM + ' > ' +Q: INIT1 ; 
+'. AND. '+Q:S ELITEM+' <• +Q : INIT2 TO &Q : SELCMD 
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***** 



ENEIF 

ELSE 



*** * * 



aft $ # # 



Accept Selection Values For Query (Single Value) 

2 12,10 SAY 'Enter Value for Selection » GET; 

Q: I NIT 1 PICT. &Q:SELPIC 

READ 

If Character, Place Quotes Around Initial Value 
IF Q; CH AR 

STORE "•"♦! (Q: I NIT 1) + "' " TO Q:INIT1 
ELSE 



Fermat Numerics to be Characters For Code Generation 

9 

ENEIF 



STORE STB (Q : INI T 1 
STORE Q : INITIT TO 
RELEASE C:INIT1 T 



Q : NR, Q: DEC) TO Q: INIT 1 T 
Q:In£t1 



***** Form Partial Command Line 

***** command Line Formation Uses Indirect Addressing to 
***** Point to the Location Of the Command Line 

***** if ^ Previous Line Has Eeen Created, Join Together 
***** with an AND 



IF SQ rSELCMD <> ' ' 

STORE &Q:SELCMD + ' .AND. ' TO SQ : SELCM D 
EN DIF 
DO CASE 

CASE ! f Q : SELECT ) = 'A' 

STORE SQ : S EL CMD-0 : SELIT EM +' = ' +Q: IN IT 1 TO &Q:SELCMD 
CASE ! (Q: SELECT) = r B' 

STORE SQ : SEL CMD-Q : SELITEM+ ' O' +Q : INIT 1 TO SQrSELCMD 
CASE ! (Q: SELECT) = • D' 

STORE SQ:SELCMD-Q:SELITEM+'='+Q:INIT1 TO SQrSELCMD 
CASE ! ( Q rSELECT ) = ' E' 

STORE SQ ; SEL CMD-Q ; SELITEM+ ' <> ' +Q: INIT 1 TO SQ-.SELCMD 
CASE ! ( Q : SELECT ) = • F' 

STORE SO: SEL CMD-Q; SELITEM+' <' +Q:INIT1 TO & Q : S E LC M D 
CASE ' (Q* C ELECT) = 'G' 

STORE*SQ:SELCMD-Q:SELITEM+' >• +Q:INIT1 TO &Q:SELCMD 
ENDCASE 
ENEIF 

STORE '00' TO Q : SELEC T 
ENDIF 

ENDIF 

ENDIF 

ENDDO 

*SET COLOR TO 112, 3 

RELEASE Q: SELITEM, Q:SELPIC, QrCHAR, Q:INIT1, Q:INIT2, Q: NR 

STORE F TO Q: DATES EL 

STORE 'CASE ' TO Q : F 1DCMD1 

STORE 'CASE ' TO Q : FIECMD2 

STORE ' ' TO Q: FIELD 

STORE 0 TO Q:IT E M 

STORE '00* TO Q: SELECT 

STORE ' ' TO QjCHOSEN 



***** Display Selection Menu to Allow Selection of Items 
***** To Displayed - Displays First Screen 

EO WHILE Q : ITEM <= 9 .AND. Q : SELECT <> '58' 

IF Q: SELECT = '00' 

ERASE 

2 2,21 SAY 'Enter Field Selection For This Query' 
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a) 3 

a) a 

a) 5 
3 5 
SET 
a) 5 

2 5 
SET 

3 c 
a 



a) 

3 

a 

2 

a 

a 

a 

a 

a 

a 



19 

o 



SAY 
SAY ' 

+ ' 

0 SAY 'Data 
25 SAY • ! ' 
COLOR TO 
27 SAY ' 

53 SAY • 
COLOR TO 
5 1 SAY ' ! 

25 SAY ' ! 

5 1 SAY ' ! 

1 SAY '01 

2 5 SAY ' ! 

5 1 SAY 8 ! 

7 1 SAY ' t 
1 SAY '02 
25 SAY • ! 

5 1 SAY ' ! 

1 SAY '03 
25 SAY ' ! 

+ » 



(A Maximum cf 10 Fields May Be Selected) 



Eleme nts ' 



112,2 

56 End Element. Select' 
5 5 Abandon Query' 

112, 3 

i 

i 

Case Number' 

11 Origin Code' 

21 Interim Re per' 
Date ' 

Cog' 



12 Type Document' 

22 Origin Prep Date' 
NSN ' 

13 Discovery Date 

23 Document Number' 



t • 



a 


10, 


1 


SAY '04 


Cate 


gory ' 


a 


10, 


25 


SA Y ' ! 


14 


Date Received' 


a 


10, 


51 


SAY ' ! 


24 


Report Contro* 


a 


10, 


71 


SA Y ' 1 


Number ' 


a 


1 1 r 


1 


SAY '05 


Nomen clature' 


a 


11 r 


25 


SAY ' ! 


15 


Open Date' 


a 


11 , 


51 


SAY ' ! 


25 


F SCM * 


a 


12, 


1 


SAY '06 


UIC 


of Origin' 


a 


12, 


25 


SAY ' ! 


16 


Transmittal Date 








♦ • 


26 


Contract Number' 


a 


13, 


1 


SAY '07 


Unit 


of Issue' 


a 


13, 


25 


SAY ' ! 


17 


IM Response Date 








+ • 


27 


Credit Code' 


a 


14, 


1 


SAY '08 


Unit 


Price' 


a 


14, 


25 


SAY • ! 


18 


Close Date' 


a 


14 , 


51 


SAY ' ! 


28 


Screening Code' 


a 


15, 


1 


SAY '09 


Quan 


tity Deficient ! 



a 

a 

a 

a 



16 

16 

16 

17 



i i 



1 1 



+ • 

1 SAY ' 
25 SAY 
46 SAY 
0 SAY • 

+ • -- 



1 9 

10 

t i 



Date 



Reopen Date 
Extended Price' 

20 Screen Report' 



29 SMIC' 



30 Next Page of Elements' 



***** Display Previously Selected Fields 

a 19,0 SAY 'Fields Currently Selected '+ Q:CHOSEN 
a 21,27 SAY 'Enter Field Number • GET QrSELECT PICTURE 
READ 

***** Validate Field Selection 

DO WHILE Q :SE L ECT < '00' .OR. Q :SELECT > '59' 

a 23,26 SAY 'Select From Above (00 - 59)'+CHR(7) 
a 21,27 SAY 'Enter Field Number ' GET ; 

Q: SEL ECT PICTURE '99' 

READ — 

ENDDO 

a 23,26 SAY ' ' 

ELSE 

***** Display Second Screen For Selection 

IF Q: SEL ECT = '30' 

ERASE 

a 2,21 SAY 'Enter Field Selection For This Query' 
a 3,19 SAY * (A Maximum cf 10 Fields May Be Selected) 



•99 • 



149 



Elements' 



* 

* 



***** 



*** * * 
*** * * 



a) 4,0 SAY 



SAY 



' Da x - 



ta 

1 I f 



3 5,0 

3 5,25 SAY 
SET COLOR TO 112,2 

3 5,27 SAY • 58 End Element Select* 
3 5,53 SAY ' 59 Abandon Query* 

SET COLOR TO 1 12, 3 

5,51 SAY 



3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 



i 1 1 

f i • 

31 



1 1 
1 1 



6.25 SAY 

6.51 SAY 

7.1 SAY ' 

7.25 SAY ' I 

+ • 

8.1 S AY '32 

8.25 SAY * ! 

+ ' 

9.1 SAY '33 

9.25 SAY ' ! 

+ ' 

10.1 SAY '34 

10.25 SAY 

10.51 SAY 

11.1 SAY * 35 

11.25 SAY »! 

+ « 

12.1 SAY '36 

12.25 SAY ' ! 

12.51 SAY ' ! 

13.1 SAY '37 

+ • 

13.58 SAY 

14.1 SAY 

+ » 

14.58 SAY 

15.1 SAY 

+ 

15.58 SAY 

16.1 SAY 

+ • 

16.51 SAY 
17,0 SAY 



i t 



i * 



t t 



90 Region* 

40 Deficiency Ver 

49 Action Code* 

Tyne Defect* 

41 * Deficiency Resp 

50 Cost Code' 

Vendor Liab Code' 

42 New- Rep air/O vhl 

51 Status Code ' 

Action Point' 

43 Date Mfg/Ovhl' 

52 Cause Code' 

Screen Quantity' 

44 ODn Time at Failure!" 

53 Action Dis'n" 

Analyst Code* 

45 GFM ' 

54 Part Number' 

Quantity Inspected 
Work Unit Coae 

'Lot/S er/ Batch • 

'38 Quantity Received 
47 Discovery Code 
'Def Item' 

'39 Quantify in Stock 
'48 Return code 
'Warranty ' 

'58 End Element Select 
59 Abandon Query* 

00 Prev Page of Elements' 



1 1 



46 



55 ' 

I . 

5§* 

i . 

57 • 



t « 



i i 



_ i 



3 19,0 SAY 'Fields Currently Selected '+ 
3 21,27 SAY 'Enter Field Number ' GET ; 

Q : SEL ECT PICTURE '99' 

READ 



Q: CHOSEN 



Validate Field Selection 

DO WHILE Q: SELECT < *00' .OR. Q : S ELECT > '59' 

3 23 ,26 SAY 'Select From Above (00 - 59)'+CHR(7) 
3 21,27 SAY 'Enter Field Number ' GET ; 

Q: SELECT PICTURE '99' 

READ 

ENDDO 

3 23,26 SAY ' ' 

ELSE 

Begin Creating Code For Fields Selected 
DO CASE 

If 59 Entered, Release All Local Memory and Return 

CASE Q: SELECT = '59' 

RELEASE ALL LIKE Q:* 

RETURN 
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*** £ * 
* * 



Store Selection Name tc Q: SELITEM 

Store Field Selection Pointer To Q : FLDCMD 



•CASE' 

* C : FLDC 
ELECT = 
•COG' T 
• C: FLDC 
ELECT = 
•MSN* T 
• C;FLDC 



CASE Q: SELECT = 

STORE 

STORE 
^ A w E 0 « 

STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE 0: SELECT = 
STORE 'CAT * T 
STORE ' Q : FLDC 
CASS Q: SELECT = 
STORE 'NOMEN' 
STORE ' C : FLDC 
CASE Q: SELECT = 
STORE 
STORE 
CASE Q : S ELECT = 
STORE 
STORE 
CASE Q: SELECT = 
STORE ' UPRC' 
STORE ' Q: FLDC 
CASE Q: SELECT = 
STORE ' QTYDEF 
STORE ' C : FLDC 
CASE Q: SELECT = 
STORE ' EPRC' 
STORE ' 0 : FLDC 
CASE Q: SELECT = 
STORE ' C EG ' T 
STORE ' C : FLDC 
CASE Q: SELECT = 
STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE Q : S 
STORE 
STORE 



•UIC' T 
' Q: FLDC 
E 

•01* TO 
' C: FLDC 



TO Q: FLDCMD 



•DOC' T 
' Q : FLDC 



ELECT = 
•S (DATE 
' C :FLDC 
ELECT = 
•S (DATE 
' 0 ; FLDC 



CASE Q: SELECT = 



•$ (DATE 
' C : FLDC 
ELECT = 
• $ (DATE 
' C : FLDC 
ELECT = 
' $ (DATE 
' 0 : FLDC 



STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE Q: SELECT = 
STORE ' $ (DATE 
STORE ' Q : FLDC 
CASE Q: SELECT = 
STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE Q : S 
STORE 
STORE 
CASE Q: SELECT = 
STORE ' $ (DATE 
STORE * C: FLDC 



• $ (DATE 

* Q : FLDC 
ELECT = 
'$ (DATE 
' 0: FLDC 
ELECT = 
'$ (DATE 
' 0 :FLDC 



'0 1 ' 

TO 0: SELITEM 
MD1 * TO Q: FLDCM D 

1 0 2 * 

0 Q:SEL ITEM 

MDf ' TO Q: FLDCMD 

'03' 

0 Q : S ELITES 

MD1 ' TO Q: FLDCM D 

» 04' 

0 OiSELITEM 
MD1' TO Q: FLDCM D 
'05* 

TO^Q : SELITEM 
MD1 ' TO Q: FLDCM D 

'06' 

0 Q : SELITEM 
MD1 ' 

» 07' 

Q: SELITEM 
MD1 ' TO Q : FLDCMD 
'08' 

TO Q: SELITEM 
MD1 ' TO Q: FLDCMD 

'09' 

' TO Q ; SELITEM 
MD1 ' TO Q: FLDCMD 

' 10 ' 

TO Q: SELITEM 
MD 1 ' TO Q: FLDCMD 

' 1 1 ' 

0 Q : SELITEM 
MD1 ' TO 

1 ' 12 * 

0 Q :SELITEM 
MDT ' TO 
' 13' 

S, 1,5) 

MD1 ' TO 
'14' 

S, 6,5) 

MD1 ' TO 
'15* 

5.11.5) 

MD1 ' TO 

'16' 

5. 16.5) 

MD1 ' TO 

' 1 7' 

5.26. 5) 

MD1 ' TO 

' 18' 

5.36.5) 

MD1 ' TO 

'19' 

S 1 4 1 , 5) 

MD1 ' TO 
' 20 ' 

S , 2 1 , 5) 

MD1 ' TO 
• 21 ' 

5. 3 1 . 5) 

MD1 ' TO 

' 22 ' 

5.46 .5) 

MD1 ' TO 



Q: FLDCMD 



Q: FLDCMD 

TO Q : SELITEM 
Q: FLDCMD 

TO Q : SELITEM 
Q: FLDCMD 

TO Q : S ELITEM 
Q : FLDCMD 

TO Q: SELITEM 
Q: FLDCMD 

TO Q : SELITEM 
Q: FLDCMD 

TO Q: SELITEM 
Q: FLDCMD 

TO Q: SELITEM 
Q: FLDCMD 

TO Q: SELITEM 
Q: FLDCMD 

TO Q : SELITEM 
Q: FLDCMD 

TO Q : SE LITEM 
Q: FLDCMD 
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CAS E Q: SELECT = • 23' 

STORE ' DOC NO * TO 0 : SELITEM 
STORE »C:FLDC«D1 * ’TO Q: FLDCM D 
CASE Q: SELECT = • 24' 

STORE 'SEPCON' TO Q : S ELIT EM 
STORE ' 0: FLDC MD1 ' TO Q: FLDCMD 
CASE QlSEIECT = *25* 

STORE *ESCM* TO Q: SELITEM 
STORE •C:FLDCMD1' TO Q: FLDCMD 
CASE Q: SELECT = * 26' 

STORE 'NUH' TO Q : SELITEM 
STORE ' Q: FLDC MDT * TO Q: FLDCMD 
CASE Q: S ELECT = '27* 

STORE 'CR' TO Q: SELITEM 
STORE * C : FLDCMD1 ' TO Q: FLDCMD 
CASE Q: SELECT = '26* 

STORE 'SCR' TO Q : SELITEM 
STORE *Q:FLDCMD 1 ' TO QlFLDCMD 
CASE Q: S ELECT = '29' 

STORE 'SM' TO Q: SELITEM 
STORE ' Q: FLDCMD1 ' TO Q: FLDCMD 
CASE Q: SELECT ='31' 

STORE ' C9Q' TO Q : S ELITEM 
STORE ' Q: FLDC MD1 ' TO Q: FLDCMD 
CASE Q : S ELECT = '32' 

STORE 'DEF' TO Q : SELITEM 
STORE ' C :FLDCMD1 ' TO Q: FLDCMD 
CASE Q: SELECT = '33' 

STORE ' VLC ' TO Q : S ELITEM 
STORE 'CiFLDCMDt* TO Q : FLDCMD 
CASE Q : S ELECT = '34* 

STORE ' ACTPT* TO Q: SELITEM 
STORE ' Q : FLDC MD1 ' TO Q: FLDCMD 
CASE Q: SELECT = '35' 

STORE ' SCRQTY ' TO Q : SELITEM 
STORE ' Q : FLDC MD1 ' TO Q: FLDCMD 
CASE Q : S ELECT = '36' 

STORE 'WHO' TO Q : SELITEM 
STORE 'QlFLDCMDI' TO Q: FLDCMD 
CASE. Q: SELECT * '37' 

STORE ' QTYINS ' TO Q : S EL IT EM 
STORE ' Q : FLDC MD2 ' TO Q: FLDCMD 
CASE Q : S ELECT = '38' 

STORE ' CTYREC ' TO Q : SELITEM 
STORE ' £:FLDCMD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '39' 

STORE ' QTYSTK ' TO Q; S ELITEM 
STORE ' Q: FLDC MD2 ' TO Q: FLDCMD 
CASE Q: S ELECT = '40' 

STORE ' DEF V* TO Q: SELITEM 
STORE ' C :FLDCMD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '41* 

STORE ' EEFR* TO Q: SELITEM 
STORE ' Q: FLDC MD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '42' 

STORE 'ITEM' TO Q: SELITEM 
STORE ' 0 : FLDC MD2 ' TO QlFLDCMD 
CASE Q: SELECT = '43' 

STORE 'OVER' TO Q: S EL ITEM 
STORE ' Q: FLDC MD2 ' TO QlFLDCMD 
CASE Q: SELECT = '4 4* 

STORE ' OTF ' TO Q : SELITEM 
STORE ' Q : FLDCMD2 ' TO Q: FLDCM D 
CASE Q: SELECT = '45' 

STORE 'GOV* TO Q : SELITEM 
STORE » Q : FLDC MD2 ' TO QlFLDCMD 
CASE Q: SELECT = '46' 

STORE 'WUC' TO Q : SELITEM 
STORE 'Q:FLDCMD2 ' TO QlFLDCMD 
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CASE Q: SELECT = ' 47' 

STORE ’CIS' TO Q : SELITEM 
STORE 'C:FLDCMD2' TO Q: FLDCMD 
CASE Q: SELECT = '48' 

STORE 'BETC' TO Q: SELITEM 
STORE 'Q:FLDCMD2' TO Q: FLDCMD 
raq? ('(•^ftfct = iuq* 

STORE ' ACTTKN ' TO 0: SELITEM 
STORE ' C : FLDC MD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '50' 

STORE ' COSTC ' TO Q : S ELITEM 
STORE ' Q: FLDC MD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '51' 

STORE ' ST AIMS C ' TO Q: SELITEM 
STORE 9 Q : FLDC MD2 ' TO Q: FLDCMD 
CASE Q : S ELECT = '52' 

STORE 'CAUSEC' TO QlSELITEM 
STORE ' Q: FLDC MD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '53' 

STORE ' ACTDIS F ' TO Q: SELITEM 
STORE 'C:FLDCMD2' TO Q: FLDCMD 
CASE Q: SELECT = ' 54' 

STORE ' MFG ' TO Q : S ELITEM 
STORE ' Q: FLDC MD2 ' TO Q: FLDCMD 
CASE Q: SELECT = '55' 

STORE 'LOT' TO Q : SELITEM 
STORE ' Q : FLDC MD2 ' TO Q: FL DCM D 
CASE Q : S ELECT = '56' 

STORE 'DITEM' TO Q : S ELITEM 
STORE ' Q : FLDC MD2 ' TO Q: FLDCMD 
CASE O-SFTFCT = '57' 

STORE ' KNTY' TO Q: SELITEM 
STORE ' 0 : FLDC MD2 ' TO Q: FLDCMD 
EN DCA S E 

IF Q: SE LECT <> '00' .AND. Q: SEL ECT <> '30' .AND.; 

Q.-SELECT <> '58' 

STORE Q ; ITEM ♦ 1 TO Q : ITEM 

IF Q :ITEK = 1 

STORE Q: SELECT TO Q; CHOSEN 

STORE C : SELI TEM TO QjDISPLAY 
ELSE 

STORE C.-CHOSEN+'. ' +Q : SEL ECT TO QiCHOSEN 

STORE Q:DISPLAY+' , '+Q: SELITEM TO Q : DISPLAY 
ENDIF 

IF Q ; SEL ECT <> • 01 • 

IF $ (C:SELITEM, 1,1) = •$• .AND. .NOT. Q : D ATESEL 
STORE 'DATES' TO Q: SELITEM 

STORE &Q; FLDCMD-' ,' +Q; SELITEM T'0 &Q: FLDCMD 
STCBE ' • TO Q : SELITEM 

STORE T TO Q : DATE SEL 

ELSE 

IF $ (Q ; SE LITEM ,1,1) O' $' 

STORE SQ ; FLDCM D- ',' +Q : S ELITE M TO SQ: FLDCMD 
ENDIF 

ENDIF 

ENDIF 

***** Generate Code For Field Selection 
IF Q ; FI ELD = ' ' 

STORE C : FIEL D-Q; SELITEM TO Q ; FIELD 
ELS E 

STORE C.-FIELD-' , ' -QrSELITEM TO Q: FIELD 
ENDIF 

STORE '00' TO Q .‘SELECT 
ENDIF 
ENDIF 
ENDIF 
ENDDC 
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RELE AS 



Release A 11 Unnecessary Memory V ariables 

C : REPLY , Q: SELECT, Q: ITEM , Q: S SLIT EH , Q: S ZLCMD, ; 
QiFLDCMD, Q: CHOSEN 



STORE Q:NRF ASSES TO C:LOO?CNT 

***** if Ecth OPEN and CLOSED Files are Selected 
***** i te Execution loop Will Be Run Twice 

DO WHILE Q : LOO PC NT >= 1 

***** select File Tc Be Used In This Query 
IF Q : FILE = 'O' 

STCRE • D :' + C: WHO- 'CPEN' TO Q: TEMP3 
ELSE 

STCRE ' D:'+C: WHO-'CLOS' TO Q: TEMP3 
ENDIF 



***** Generate Executable Cede Tc Perform Query Selection 
***** check to See If The Selection Deals With The First 
***** Half of the Data Base 



IF Q : SELCMD 1 <> ' ' 

IF Q: EILE = • O' 

STCRE 'USE D : 0 PEN 1 ' TO SQ : LINE 
SICRE Q: C NTR + 1 TO Q : CNTR 
STCRE 'Q : L ' + STR (Q: C NTR , 2) TO Q: LINE 
ELSE 

STCRE 'USE D:CLOSE1'TO SQ:LINE 
STCRE Q: C NTR + 1 TO Q : CNTR 
STCRE 'Q : L ' + STR (Q: C NTR , 2 ) TO Q: LIN E 
ENDIF 

STCRE 'D:' + C:WHO+'TMP1* TO Q: TEMPI 
SICRE ' CCPY TO ' + QiTEMPI TO SQ:LINE 
IE Q : ELDCMD 1 <> 'CASE ' 

STCRE SQ : LINE+ ' FIELD ' +Q : FLDCMD1 + ' FOR ' +Q : SELCMD1 ; 
TO SQ: LINE 

ELSE 

STCRE SQ: LINE+ • FOR '+Q:SELCMD1 TO SQ :LINE 
ENDIF 

STCRE Q : CNTR + 1 TC Q :CN TR 
STCRE ' Q :L' +STR(Q:CNTR,2) TO Q:LINE 
ENDIF 

***** Generate Executable Cede To Perform Query Selection 
***** check to See If The Selection Deals With The Second 
***** Half of the Data Base 



IF Q : SELCMD 2 <> ' ' 

IF Q: FILE = • C 

STCRE 'USE D: OFEN2 ' TO SQ : LINE 
STCRE Q: CNTR + 1 TO Q :CNTR 

STCRE 'Q : L ' + STR (Q: CNTR , 2) TO Q: LINE 
E X. S E 

"STCRE 'USE D : CLOSE 2' TO SQ : LI NE 
STCRE QlCNTR + 1 TO Q : CNTR 

STCRE 'Q : L ' + STR (Q: CNTR , 2 ) TO Q: LIN E 
ENDIF 

STCRE ' D :'+C: WHO+ 'TMP2' TO Q: TEMP2 
STCRE 'COPY TO '+Q:TEMP2 TO &Q:LINE 
IF Q * FLCCMD2 <> 'CASE ' 

STCRE SQ : LINE+ ' FIELD ' + Q : FLDCMD2 + ' FOR '+Q:SELCMD2; 
TO & Q: LI KE 

ELSE 

STCRE SQ : LINE+ ' FOR '+Q;SELCMD2 TO SQ:LINE 
ENDIF 

STCRE Q: CNTR + 1 TC Q:CNTR 

STCRE 'Q:L* +STR (Q :CNTR, 2) TO Q:LINE 



154 



END IF 



JL «JL> vl» <jU 'A* 

*? 't* -t* -v* 'lr 
=Jt sjcjic * 



Generate Cods to Join Together 3oth Halves of rhe 
Selected Files 



IF 0 : SELCMD 'I <> * • .AND. Q : SEICMD2 <> 1 « 

STORE 'SELECT PRIORY' TO SQ:LINE 

ST CEE Q: CNTR + 1 TC Q :CN TR 

STORE ' Q:L' + STR (Q:CNTR,2) TO Q:LINE 

STORE 'USE ' +Q: TEMP 1 TO SQ:LINE 

STORE Q : CNTR + 1 TC Q :CNTR 

STORE »Q:L' +STR <0:CNTR,2) TO Q:LINE 

STORE 'SELECT SECONDARY' TO SQ:LINE 

STORE Q : CNTR + 1 TC Q :CN TR 

STORE '* Q : L ' + S TR ( Q : C NT R , 2 ) TO Q:LINE 

STORE 'USE ' +Q:TEMF2 TO SQ: LINE 

STORE Q : CNTR + 1 TC Q.-CNTfi 

STORE 'Q :L' +STR (Q :CNTR, 2) TO Q:LINE 

STORE 'JOIN TO * + Q:TEMP3 + ‘ FOR P . C AS E=S . CASE FIELD ’ +; 

Q : FIEL D TO SQ: LIN E 
STORE Q : CNTR + 1 TC Q:CN TR 
STORE ' Q:L' +STR(Q:CNTR,2) TO Q :LINE 
STORE 'USE' TO &Q: LINE 
STORE Q : CNTR + 1 TC Q:CNTR 
STORE 'Q:L' + STR (Q:CNTR, 2) TO Q :LIN E 
STORE 'DELETE FILE D : ' +Q : TE MP 1- ' . DBF « TO SQ: LI NE 
STORE Q : CNTR + 1 TC Q :CNTR 
STORE 'Q:L' +STR (Q:CNTR,2) TOQ:LINS 
STORE 'DELETE FILE D : • +Q : TE MP2-' . DBF ' TO SO’.LINE 
STORE Q:CNTR + 1 TC Q :CN TR 
STORE ' Q:L' + STR (Q :CNTR,2 ) TC Q :LIN E 
ELSE 

IF Q:SELCMD1 <> « ' .AND. Q :SELCMD2 = ' ' 



***** Generate Codes to Rename Files as Necessary 
IF Q : FLDC M D2 = 'CASE ' 

STORE ' RENA EE ' +Q: TEMPI DBF TO « +Q :TEM P3- ' . DEF ' 
TO DO .‘LINE 

STORE Q.-CNTB + 1 TO Q:CNTR 
STORE ' Q: L' +STR (Q: CNTR, 2) TO Q : LINE 
ELSE 

STORE 'SELECT SECONDARY' TO SQ: LI NE 

STORE Q :C NT E + 1 TC Q :CNTR 

STORE ' Q: L' +STR (Q: CNTR, 2) TO Q : LINE 

STORE 'USE '+Q;TEMP1 TO SQ : LIN E 

STORE Q-.CNTR + 1 TO QtCNTR 

STORE ' Q: L' +STR (Q: CNTR, 2) TO Q : LINE 

STORE 'SELECT PRIMARY ' TO SQ : LI NE 

STORE QrCNTR + 1 TC Q :CNTR 

STORE ' Q: L' +STR (Q: CNTR, 2) TO Q: LINE 

IF Q: FI LE = 'O' 

STORE 'USE D:OP EN2 ' TO SQ:LINE 
STORE Q: CNTR + 1 TC Q : CNT R 

STORE 'Q:L'+STR (Q:CNTR,2) TO Q:LINE 
ELSE 

STORE 'USE D: CLOSE 2' TO SQ: LINE 
STORE Q : CNTR + 1 TO Q:CNT R 

STORE ' Q :L' + STR (Q: CNTR, 2) TO Q : LI NE 
ENDIF 

STORE 'JOIN TO ' +Q : TEMP3+; 

' FOR P. CASE=S. CASE FIELD ' +Q : FIELD TO S Q : L IN E 
STORE Q :CNT R + 1 TO Q : CNTR 
STORE • Q: L' +STR (Q: CNTR, 2) TO Q : LINE 
STORE 'USE' TO SQ-.LINE 
STORE Q :C NT E + 1 TC Q :CNTR 
STORE ' Q: L' +STR (Q: CNTR, 2) TO Q : LINE 
STORE 'DELETE FILE D : ' +Q :T EMP1- ' . DBF ' TO SQ : LINE 
STORE Q:CNTR + 1 TO Q:CNTR 
STORE f Q: L' +STR (Q: CNTB, 2) TO Q : LINE 
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ENDIF 

ELSE 

IF Q'FLDCMDI = ’CASE ' 

STORE 'RENAME ' +Q: TEM P2- ' . DBF TO 1 +Q : TEMPS- * . DEF ' ; 
TO 50: LIKE 

STORE Q : C N T R + 1 TO Q:CNTR 
STORE ' Q: L' + STR (Q: CNTR, 2) TO Q:LINE 
ELSE 

STORE 'SELECT SECONEAFY' TO SQ : LIN E 

STORE Q :CNT R + 1 TO Q : CNTR 

STORE ' Q: L ' + STR (Q: CNTR, 2) TO Q : LINE 

STORE ’USE »+Q:TEHP2 TO SQ:LINE 

STORE Q :C NT E + 1 TO C:CNTR 

STORE * Q: L' +STR (Q: CNTR, 2) TO Q : LINE 

STORE 'SELECT PRIMARY' TO 5Q:LINE 

STORE Q-.CNTF + 1 TO Q : CNTR 

STORE ' Q: L' +STR (Q: CNTR, 2) TO Q : LIN E 

If Q: FILE = 'O' 

STORE 'USE D:OP EN1 ' TO SQ :LINE 
STORE Q : CNTR + 1 TO Q:CNTR 

STORE ' Q:I' +STR (Q: CNTR, 2) TO Q:LINE 
ELSE 

STORE 'USE D:CLOSE 1 ' TO SQ: LIN E 
STORE Q : CNTR + 1 TO Q:CNTR 

STORE ' Q:I'+STR (Q:CNTR, 2) TO Q : LINE 
ENCIF 
STORE 

STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ENDIF 
ENDIF 
ENDIF 

STORE Q : LOOFCNT- 1 TO QiLOOPCNT 

***** if i wo Passes Required, Switch to Closed File 
***** for Second Pass 
IF Q:NRP ASSES = 2 

STORE 'O' TO Q: FIT E 
ENDIF 
ENDDO 

***** if i wo passes Required, Generate Code To Join Files 
***** created by Individual Passes 

IF Q: NR PASSES = 2 

STORE 'USE D : ' +C : WHC+'OPEN' TO 5 Q : LIN E 
STORE Q : CNT R + 1 TO Q:CNTR 
STORE ' Q :L' + STR (Q:CNTR,2) TO Q:LINE 
STORE 'APPEND FROM ' +"D: f, +C : WHO+ 'CLOS ' TO 5Q-.LINE 
STORE Q: CNTR + 1 TO Q :CNT R 
STORE ' Q :L' +STR (Q : CNTR, 2 ) TO Q:LINE 
ENDIF 

*SET COLOR TO 112, 6 

ERASE 

a 10,23 SAY 'Your Query Is Now Being Processed' 

3 12,33 SAY 'Please Standby' 

***** Eegin Execution of Generated Code 

STORE 10 TO Q: E XEC NT B 
DO WHILE Q : EXECNTR <= Q:CNTR-1 

STORE ' Q :L' +S TR (Q ; EXE CNT R, 2) TO Q: EX ELINE 



'JOIN TO ' +Q ITEMP3 + ' FOR P . CAS E=S. C AS E ' 

+' FIELD ' +Q : FIELD TO 5Q : LINE 
Q :C NT R + 1 TO Q:CNTR 
' Q:L' +STR (Q: CNTR, 2) TO Q : LI NE 
'USE' 10 5Q: LINE 
Q :CNTR + 1 TO Q : CNTR 
' Q: L ' +STR (Q: CNT F, 2) TO Q : LINE 
'DELETE FiLE D: ' +Q: TEMP2- ' . DBF ' TO 5Q : LI NE 
Q.-CNTF + 1 TC Q : CNTR 
' Q: L' +STR (Q: CNTR, 2) TO Q : LINE 
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SSQ: EXELINE 

STORE Q : EXECNTR + 1 TO Q : EX ECNTR 

" N D D 0 

STORE «"'+'E:'+C:WHC + 'OPEN. D2F'+'"" TO Q: OPEN FILE 
STORE "' M +' C : ' + C : WHO + 'CLOS . DBF ' +" * " TO Q:CLOSFILE 
IF FILE (SO: CPENFILE) .AND. FILE (SQ: CLOS FILE) 

STORi 'D:» + C: WHO* 'OPEN' TO Q: USEFILE 
STORE *D :' + C: WHO+ » CLOS. D BF' TO Q : DELETEF 
DELETE FILE SQ:DELETEF 
ELSE 

IF FILE (SQ: OPENFILE) 

STORE 'D: * +C: W HC+ ' OPE N ' TO Q:USSFILE 
ELSE 

STORE ' D : ' +C : W HC+ * CLO S * TO Q: USEFILS 
ENDIF 
END IF 

***** Display The Number of Records Selected and 
***** provide the Option of Hard Copy or Screen 

USE SQ: USEFILE 
GOTO EOTTCM 
ERASE 

a) 10 16 SAY # 

2 10*22 SAY 'Records Have Been Selected For This 
2 13,30 SAY *1. Print Hard Copy' 

2 15,30 SAY '2. Display To Screen' 

3 17,30 SAY '3. Abort Query' 

STORE * ' TO Q: REPLY 

2 20,40 GET Q: RE PLY 
READ 

DO WHILE Q : REP LY < *1' .OR. Q: REPLY > '3' 

3 23,33 SAY 'Enter 1, 2 or 3'+ CHR(7) 

3 20,40 GET Q:REPLY 
READ 
ENDDO 
DO CASE 

CASE Q: REPLY = * 1 * 

SET PRINT ON 
USE SQrUS EFILE 
DO WHILE .NOT. EOF 
ER ASE 

STORE 0 TO C : LINEN R 

DO WHILE .NOT. EOF .AND. Q : L IN ENR <= 59 
DISPLAY ALL FIELD SQ: DISPLAY OFF 
SKIP 

STORE Q : LINENR + 1 TO Q : LIN ENR 
ENDDO 
? CHR ( 1 2) 

ENDDO 

SET PRINT OFF 
CASE Q: REPLY = *2' 

fDAcp 

USE SQ:US EFILE 

DISPLAY ALL FIELD SQ: DISPLAY OFF 
WAIT 

CASE Q: REPLY = ' 3 ' 

USE 

DELETE FILE SQ : USEFIL E+ '. DBF' 

RELEASE ALL LIKE Q :* 

RETURN 

ENDCASE 

USE 

STORE Q : USEFIL E+ ' . DBF » TO Q : US EFILE 
DELETE FILE SQ: USEFILE 
RELEASE ALL LIKE Q:* 

RETURN 

***** £ NE OF PROGRAM 



Report 



Query ' 
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XIII. STATISTICS GENERATION MODULE 



I****:***##*:*:****#*:** ******** *** * ** * * ** * * 4: * * * ** *** *********** 



** ** 

** Date: 1 9 Jan 1 984 ** 

** Version : 1 . 0 ** 

** Module Name: STATGEN ** 

** Module Furpose: Generate Count of Cases in Each ** 

** Processing Phase and Create Time ** 

** Frame Statistics ** 

** ** 

** Module Interface Definition ** 

** Ihduxs: None ** 

** Outputs: None ** 

** Module Processing Narrative Description: ** 

ajc^c 

** Calculates the Time Span Between Operations ** 

** and Updates The TECHCODE File to Indicate the ** 

** Number of Cases in Each . Processing Status ** 

** ** 

** Superordinate Modules: UTILMENU ** 

** Subordinate Modules: None ** 

** Author: R. G. NICHOLS ** 

** ** 



*** ************* ** ********* *** ********* ****** *** * ********** 

***** Display Warning 
ERASE 



a 


1 , 19 


SAY 


i***** statistics Generation Processing ****** 


2 


3,24 


SAY 


• * 


* * **** ********* 


• 


2 


4, 24 


SAY 


t * 


* 


« 


2 


5,24 


SAY 


t * 


WARNING * 


1 


2 


6,24 


SAY 


• * 


* 


t 


2 


7,24 


SAY 


»* 


This Program Will Read * 


t 


2 


8,24 


SAY 




All Records While * 


« 


2 


9,24 


SAY 


»* 


Processing * 


t 


2 


10,24 


SAY 


»* 


* 


t 


2 


11,24 


SAY 


» * 


If Existing Files Are * 


t 


2 


12,24 


SAY 


»* 


Large, This Could Take * 


t 


2 


13,24 


SAY 


t * 


Ho urs * 


« 


2 


14,24 


SAY 


• * 


* 


1 


2 

2 

2 

2 


15.24 

17.24 

18 .24 

19.24 


SAY 

SAY 

SAY 

SAY 


t * 
t 
t 
t 


Are You SURE You Want To* 

Con tin ue * 

<Enter Y or N> • + CHR (7) 


1 


STORE ' 


' TC 


s 


: REPLY 2 




2 21,40 
READ 


GET 


S: 


REPLY2 




DO WHILE 
2 23, 
2 21 , 
READ 
ENDDO 


! (S: RE PLY 2) <> *Y' .AND. ! (S:REPLY2) 

32 SAY 'Enter Y or N Only' + CHR (7) 

40 GET S :REPIY2 PICTURE ’ A* 


PS 

A 

V 


2 


23 ,32 


SAY 


« 


t 




2 


17,40 


SAY 


t 


t 





***** Verify Password Prior to Beginning Computations 
IF S : REPIY2 = * Y ' 

5) 21,30 SAY 'Enter Your Password * 

STCRE ' ' TC S:PASSWORD 

SET CONSOLE OFF 
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ACCEPT TC SiPASSWCFD 
SET CCNSCLE ON 

Tp c . p j c c KO R D < > ' » » 

USE D:TECHCODE INDEX D:TECH 
FIND ?C:WHC 

IE FSWD <> S : PASSWORD .05. # = 0 
3 23,18 SAY 'Bequest ABORTED •; 

+ ’- Strike Any Key To Continue* 

WAIT 

RELEASE ALL LIKE S:* 

RETURN 

ENEIF 

ENDIF 

ELSE 

RELEASE ALL LIKE S:* 

RETURN 

ENDIF 

*** & * Display Processing Message to User 
ERASE 

2 6,27 SAY ’Internal Statistics Update’ 

2 8,35 SAY 'In Process’ 

2 16,26 SAY ****** DC NOT INTERRUPT ****** 

SELECT PFIMARY 

USE D :OPEN 1 INDEX D:0CASE1 



*****. Begin Computing Loop 



DO WHILE .NOT. EOF 

DO WHILE $ (DATES, 46,1) <> 

STORE CASE TO S: CASE 
STCRE WHO TO S:WHO 



' » .AND. .NOT. EOF 



STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 

STCRE 



0 TO S: ASSIGNED 
0 TO S: ACTIVE 
0 TO S: TRANSMIT 
0 TO S: RESPOND 
0 TO S : CLOSED 



$ (D A TES ,46,1) TC S : CAT ECHG 

' *- T0 S: RECEI PT 

T C S .‘OPEN 
TO S : X MIT 
TC S : RESPONSE 
TO SlCLOSE 



(DATES, 46,1' 
(DATES, 6,5) 
(DATES ,11,5 
DATES, 16,5] 
{DATES , 26,5 
$ ( D A TE S , 36,5] 



0 TO S: M AILDLAY 
0 TO S: XMITDLA Y 
0 TO S : RESPDLAY 
0 TO S : CLCSDLA Y 
0 TO S : P FCCDLAY 



***** Calculate Time Span From Receipt to Case Open 

IF S: RECEIPT <> ’ ' .AND. S:OPEN <> ' 

IF $(S: RECEIPT, 1,2) < $ (S: OPEN , 1 , 2) 

IF VAL ($ (S: OPEN ,1,2)) -VAL ($ (S: RE 



ELSE 



STORE VAL ($ (S:OFEN,3,3) ) +365-; 
VAL ($ (S:RECEIPT,3,3) ) +1 



CEIPT , 1 ,2) ) =1 
TO* S: MAILDLAY 



IF VAL ($ (S: OPEN, 1 ,2) ) - VAL ($ (S: RECEIPT ,1 , 2) ) =2 
STCF.E VAL ($ (S.-OPEN, 3,3) ) +730; 

-VAL($ (S: RECEIPT, 3,3) )+1 TO S; MAILDLAY 



ELSE 

STCRE 



999 TO S -.MAILDLAY 
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*** ** 



*** # £ 
** * * * 



***** 
**** * 



ENDIF 
END IF 
ELSE 

STORE VAI($(S: 

+ 1 TO S 

ENDIF 

ENDIF 

Calculate Time Scan From Case Open tc Let- er Transiri 



OPEN, 3,3) ) -V AL ($ (S :ESC SIFT, 3 ,3) ) 
MAI DDL AY 



IF S:XMIT <> ' ' 

IF $(S: OPEN, 1,2) < 
IF VAL ($ (S: XMIT 
STORE VAL ($ ( 
VAL ($ (S; 

ELSE 

IF V A I ($ (S : X 
STORE VAL 
VAL ( $ 

p TCT? 

STORE 999 
ENDIF 
ENDIF 
ELSE 

STORE V AL ($ ( S; X 
TO S : XMITDL 

ENDIF 

ENDIF 

Calculate Time Span 
Manager Response 

IF S : RESPO NS E <> ' 

IF $ ( S : XMIT, 1,2) < 
IF VAL ($ (S.-RESP 
STORE VAL ($ ( 
VAL ($ (S : 

ELSE 

IF VAL ($ (S ; R 
VAL {$ ( 
STORE VAL 
VAL 

ELSE 

STORE 999 
ENDIF 
ENDIF 
ELSE 

STORE VAL <$ (S: R 
+ 1 TO S 

ENDIF 

ENDIF 



$ (S: XMIT, 1,2) 

,1,2) ) -VAL (S (SjOPEN, 1, 2) ) = 1 
S: XMIT, 3 , 3) ) +365-; 

OPEN, 3, 3)) +1 TO S ; XMIT DLA Y 

MIT ,1-2) ) -VAL ($ (S;OPEN , 1, 2) ) =2 
($ (S: XMIT, 3, 3) ) +730-; 

(S : OPEN, 3,3) ) +1 TO SiXMITDLAY 

TO S ; XMIT DLA Y 



MIT, 3, 3) ) - VAL ($ (S: OPEN ,3 ,3) ) +1 
AY 



From Letter Transmit to Item 



$ (S;RESPONSE,1 ,2) 

CNSE, 1 ,2) ) -VAL (S (S :XMIT, 1 , 2) ) = 1 
S: RESPONSE, 3, 3) ) +365-; 

XMIT, 3, 3)) +1 TO S ; RESP DL A Y 

ESPCNS E, 1 ,2) ) - ; 

c ♦ Y M T T 1 21 i = 2 

($ (S:RESPONSE,3,3) ) +730 - ; 

($ (S; XMIT, 3,3) ) +1 TO S : RESPDLA Y 

TO S : RESPDL AY 



ESPCNS E, 3,3) ) -VAL ($(S: XMIT, 3,3)) 
: RESPDLA Y 



Calculate Tim* 
Case Close 



Span From Item Manager Response 



IF S; CLOSE <> ' • 

IF 2>(S : RESPONSE, 1 , 
IF V AL ( $ (S: CLOS 
STORE VAL (S ( 
VAL ($ (S: 

ELSE 

IF V A 1 ($ (S: C 
VAL ($ (S 
STORE VAL 
V AL ( $ ( S 

ELSE 

STORE 999 
ENDIF 
ENDIF 
ELSE 



2) < $ (S ; CLOSE, 1,2) 

E, 1 ,2) ) - VAL ($ (S; RESPONSE, 1 ,2) ) =1 



S :CLOS E, 3. 3)) +365 - 
RESPONSE, 3, 3) ) + 1 



TO S; CLOSDLAY 



LOSE, 1,2)) - 

:RESPONS E, 1 
(S (S:CLOSE 
: RESPONSE 



!;a« 



= 2 
+ 7 30 - 
TO S 



CLOSDLAY 



TO S ; CLOSDL A Y 
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STORE V AI ($ (S:C LOSE, 3,3) ) 

VAL ($ (S: RESPONSE, 3, 3) ) +1 

ENDIF 



TO S : CLOS DL AY 



***** calculate Time Span From Case Open to Case Close 



IF $(S : OPEN, 1,2) < $ (S:CLOSE. 1 .2) 

IF VAL ($ (SlCLOS E, 1 ,2) ) -VAL($ (S :0?EN, 1 , 2) ) = 1 
STORE VAL($(S:CLOSE,3,3) ) + 365 - ; 



VAL (S (S: OPEN, 3, 3) ) 

ELS E 

IF VAL ($ (S : C LOS E, 1,2) 
STCRE VAL ($ (S: CLOS 



+ 1 



♦ 

TO 



S : PROCDLA Y 






-VAL ($ (S.-OPEN, 1,2) )=2 
,3,3) ) + 730 - • 



VAL($ (S:OPEN,3,3) ) + 1 TO S : PROCDLA Y 



ELSE 

STCRE 999 TO S:PROCDLAY 
ENDIF 
ENDIF 
ELSE 

STORE VAL ($ (S:CLOSE,3,3) ) - VAL ($ (S : OPEN , 3 , 3) ) 

+ 1 1C S :PROCDLAY 



ENDIF 

ENEIF 

SELECT SECCNDARY 

USE D.-QTIME I N LEX D: Q C AS E 



***** Update Time Frame File With New Time Spans 
***** Jr a Record Does Not Exist For a Case, Create It 



FIND SS:CASE 
IF # = 0 

APPEND BLANK 

REELACE CASE WITH S:CASE,WHO WITH S: WHO 
IF S: DATECHG <> * N * 

STORE ' 9 999 * TO S : WHO 
ENDIF 
ENEIF 

IF S: DATECHG = 'N' 

STCRE 1 TO S.-ASSIGNED 
STORE 1 TO S : AC TI V E 
ENEIF 



***** chance Status From Active to Transmitted or 
***** Vice "Versa 



IF S : XMITDLA Y > 0 .AND. XMITDLA Y = 0 
STORE S : ACT IVE - 1 TO S:ACTIVE 
STCRE S .‘TRANSMIT ♦ 1 TO S: TRANSMIT 

ELSE 

IF S: XMITDLAY = 0 .AND. XMITDLAY <> 0 
STORE S: ACTIVE + 1 TO S:ACTIVE 
STORE S : TR ANSMI T - 1 TO SiTRANSMIT 
ENDIF 
ENEIF 

***** change Status From Transmitted zo Responded or 
***** vice Versa 



IF S : RES PDLAY > 0 .AND. RESPDLAY = 0 
STORE S :TR ANSMIT - 1 TO S: TRANS MIT 
STCRE S :RES ECND + 1 TO S : RESPOND 

ELSE 

IF S: RESPDLAY = 0 .AND. RESPDLAY <> 0 
STORE S: TRANSMIT ♦ 1 TO S : TRANS MIT 
STORE S : RESPOND - 1 TO S:RESPOND 
ENDIF 
ENEIF 



*** # % 



Change Status From Responded to closed or 



*** * * 



Vice Versa 



IF S: CLOSDLAY > C .AND. CLOSDLAY = 0 
STORE S:RSSPCND - 1 TC S:RESPOND 

STORE S .‘CLOSED ♦ 1 TO S: CLOSED 
FL C E 

"iF S: CLOSDLAY = 0 .AMD. CLOS DL AY <> 0 
STORE S: RESPOND - 1 TO S: RESPOND 
STORE S: CLOSED ♦ 1 TO S .-CLOSED 
EN DIF 
ENEIF 



***** Update Time Span File 

REPLACE CASE WITH S:CASE,WHO WITH S : WHO ,M AILDLAY ; 

WITH S: MAILDLAY, XMITDLAY WITH 5 : XMITDLAY, RESPDLAY WITH ; 

S: RESFDLAY, CLOSDLA Y WITH S : CLOSDL AY , PROCDL AY WITH S : EROCDLAY 

SEIECT SECONDARY 

USE D : TECH CODE INDEX D: TECH 

***** update Techcode File 

FIND SS2WHO 
IF # <> 0 

REPLACE ASSIGNED WITH ASSIGNED + S : ASSI G NED , ; 

ACTIVE WITH ACTIVE + S: ACTIVE, TRANSMIT WITH TRANSMIT ; 

+ S: TRAN SMIT r RES POND WITH R ESPOND+S : R ES PON D, CLOS ED WITH ; 
CLOSED + S : CLOS ED 
ENDIF 
ENEIF 

SELECT PRIMARY 

REPLACE DATES WITH $ ( D AT ES , 1 , 45) + * ' 

SKIP 

ENEDO 

SKIP 

ENDDO 

***** Release All Local Memory Variables and All Files 
***** used During Processing 

SELECT PRIMARY 
USE 

SELECT SECONDARY 
USE 

RELEASE ALL LIKE S:* 

RETURN 

***** END OF PROGRAM 
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XIV. JULIAN DAIS CONVERSION MODULE 



****************************** ********4 c *** **# ************** 
** ** 

** Date: 18 October 1984 ** 

** Version: 1.0 ** 

** Module Name: OJULIAN ** 

** Module Purpose: Convert Date (MMDDYY) to Julian ** 

** Module interface Definition 

** Inputs: V :MM, V :DD,V: YY ** 

** Outputs: V: J UPDATE ** 

** Module Processing Narrative Description: ** 

** ** 

** Receives a date in MMDDYY format and converts ** 

** it to a Julian date and returns the date to ** 

** the calling program. ** 

** ** 

** Superordinate Modules: XOPEN2 ** 

** Subordinate Modules: None ** 

** Author: J.G. BOYNTON ** 

** ** 

*********************************************************** 

DO CASE 

CASE V: MM = 0 1 

STCRE V:DD TO V :D A Y 
CA C E V*MM= 02 

"STORE *V:DD + 31 TO V: DAY 
CASE V : M M = 03 

STCRE V: DD + 5 S TO V: DAY 
CASE V: MM = 04 

STCRE V: DD + 90 TO V: DAY 
r A9F VMM = OS 

STORE V: D D + 120 TO V : DA Y 
CASE V : M M = 06 

STCRE V: DD + 1 51 TO V : DAY 
CASE V : M M = 0 7 

STCRE V: DD + 1 81 TO V : DA Y 

CASE V : M M = 08 

STCRE V:DD + 212 TO V : DA Y 
CASE VMM = 09 

STORE V: DD + 243 TO V : DA Y 
CASE V : M M = 10 

STCRE V: D D + 273 TO V : DA Y 
CASE V M M = 11 

STCRE V:DD + 304 TO V : DA Y 
CA C E V M M = 17 

"STCRE V: DD + 334 TO V : DA Y 
ENDC A SE 

IF INT (V : YY/4) *4 = V : YY .AND. V: D AY >= 60 
IF V:MM= 02 .AND. V:DD= 29 
STORE V:D AY TO V :D AY 
ELSE 

STORE V:DAY + 1 TO V: D A Y 
ENDIF 
END IF 

STORE V: YY * 1000 + V :DAY TO V.-JULIAN 
STORE STR (V; JULIAN , 5) TO V: JULDATE 
RETURN 

***** ZNC op program 
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XV. COG COUNT MODULE 



4444444444=4=44=4:44 44 4=4=444:4:*44: 4 4 4 4 44 * 4 44 4 4 4 4 4 4 4 4 44444444444444 



44 44 

** Date: 8 Jan 1984 ** 

** Version: 1.0 ** 

** Nodule Name: COGCNT ** 

** Module Purpose: Count the Active Cases Assigned to ** 

** Any Given COG ** 

4:4: 4:4: 

** Module Interface Definition ** 

** Inputs: None ** 

** Outputs: None ** 

** ** 

** Module Processing Narrative Description: ** 

** ** 

** Indexes the OPEN 1 File by COG and Counts ** 

** The Number cf Cases Assigned To Each COG ** 

** ** 

** Superordinate Modules: UTILMENU ** 

** Subordinate Modules: None ** 

** Author: H. G. NICHOLS ** 

44 4t4e 



444444444444444444444444444 *4:4= 4= 44 4=4= 44 44 4= 4= 4= 4: *4: 4:* * * * * 4= 44 4 4=4 4:4= 

***** Display warning Message and Accept Con tins Request 
ERASE 



2 


i 


, 24 


SAY 


****** cCG Count Processing 


***** 


2 


3 


,24 


SAY 


1* 


4:* 444=4: 4 4 4 4 4 4 


* * 


* 


2 


4 


, 24 


SAY 


t* 






* 


2 


5 


,24 


SAY 


t * 


WARNING 




* 


2 


6 


, 24 


SAY 


»* 






* 


2 


7 


,24 


SAY 


»* 


This Program Will Read 




* 


2 


8 


, 24 


SAY 


1 * 


All Records While 




* 


2 


9 


,24 


SAY 


«* 


Proc essing 




* 


2 


10 


, 24 


SAY 


I * 






* 


2 


1 1 


,24 


SAY 


1 * 


If Existing Files Are 




* 


2 


12 


, 24 


SAY 


1 * 


Large, This Could Tak 


0 


* 


2 


13 


,24 


SAY 


« * 


Ho urs 




* 


2 


14 


, 24 


SAY 


1 * 






* 


2 


15 


,24 


SAY 


1 * 


44 4444 444444 


* * 


* 


2 


17 


, 24 


SAY 


f 


Are You SURE You Want 


To* 




2 


18 


, 24 


SAY 


1 


Continue ' 






2 


19 


, 24 


SAY 


f 


<Enter Y or N> ' + 


CHR (7) 



STORE * ' TO CC: REPLY2 

a 21,40 GET CC: REPLY2 
READ 

DO WHILE ! (CC: REPLY2 ) <> »Y' .AND. !(CC:REPLY2) <> *N* 
S 23,22 SAY ' Enter Y or N Only* + CHR (7) 
a 21,40 GET CC: RE ELY 2 PICTURE 'A* 

READ 

ENDDO 

a 23 ,32 SAY ' « 

a 17,40 SAY * * 

***** Prompt For and Accept Password Verification 

TP ff’RFPTY? = » Y» 

a 21,20 SAY 'Enter Your Password ' 

STCRS ' ' TC CC.-PSWD 

SET CONSOLE OFF 
ACCEPT TC CC : PSW D 
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SET CCNSCLE ON 
I F CC : FS WD <> ’ ' 

USE D : TECH CODE INDEX D : TEC H 
FIND SC:WHO 

IF P S WD <> CCiPSWD .OR. # = 0 

a) 23,18 SAY 'Request A30ETED - Strike Any Key To Cent 

WAIT 

RELEASE ALL LIKE CC:* 

RETURN 
ENEIF 
ENEIF 
ELS E 

RELEASE ALL LIKE CC:* 

RETURN 

ZNDIF 



***** Begin Statistics Update 
ERASE 

a) 12,20 SAY • CCG STATISTICS BEING PROCESSED' 

a) 14,20 SAY ' PLEASE STANDBY ' 

a) 20,20 SAY '***** DC NOT INTERRUPT WHILE PROCESSING ****** 



SELECT PRIMARY 

USE EiOPENl INDEX D:CCGCNT 

REINDEX 

SELECT SECONDARY 

USE E : C C G INDEX D:COGS 

REPLACE COUNT WITH 0 FOR COUNT <> 0 

SELECT PRIMARY 

GOTO 2 

***** count the COGs Assigned Until End Of File Found 

DO WHILE .NOT. EOF 

STORE CCG TO CC : CURRENT 
STORE 0 TO CC.-COUNT 

***** increment Counter Until a Different COG or End Of 
***** File Found 

DC WHILE COG = CC:CURRENT .AND. .NOT. EOF 
STORE CC.-CCUNT + 1 TO CC:COUNT 
SKIP 
ENDDO 

SELECT SECONDARY 

***** update IM Record 

FIND 8CC : CURE ENT 
IF # <> 0 

REPLACE COUNT WITH CC:COUNT 
ENEIF 

SELECT PRIMARY 
ENDDO 
USE 

SELECT SECONDARY 
USE 

RELEASE ALL LIKE CC:* 

RETURN 

***** OE CF program 
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XVI. BI^ WEEKLY STATISTICS REPORT MODULE 



# * * * * *## jjc****##****#*** 

$# £* 

** DATE: 27 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: XXEISTAT ** 

** MODULE FURPOSE: CALCULATE EI-WEEKLY STATISTICS ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C :W HO , C;JULIAN ** 

** OUTPUTS: ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ACCEPTS CLOSING DATE FOR THE REPORT IN MMDDYY ** 

** FORMAT. DATE IS CONVERTED TO JULIAN FORMAT EY ** 

** CALLING OJULIAN . DATES FOR PREVIOUS YEAR AND ** 

** OLDEST YEAR ARE CALCULATED AND STORED INTO ** 

** MEMORY VARIAELES. OPEN AND CLOSE DATABASES ARE ** 

** SEARCHED S E CUENTI A LLY FOR ANY CASES WHICH WERE ** 

** OPENED OR CLOSED DURING THE PERIOD IN QUESTION. ** 

** THE BIWKSTAT DATABASE IS READ FOR THE COUNTS ** 

** OF THE LAST REPORT TO CALCULATE THE TREND. AND ** 

** THEN THE CURRENT COUNTS ARE PLACED INTO THE ** 

** BIWKSTAT DATABASE FOR FUTURE REFERENCE. THE ** 

** REPORT IS THEN PRINTED .USING THE COUNTS FROM ** 

** THIS PROCESSING. THE PROGRAM SHOULD BE RUN ** 

** IN BATCH, DURING * OFF * HOURS, AND ONLY ON THE ** 

** SPECIFIC DAY FOR THE CUTOFF TO KEEP THE TREND ** 

** DATA REAL. ** 

** SUPEBORDINATE MODULES: SUPRPTS ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: J.G. BOYNTON ** 

** ** 

*£*****££*# *** * * sje* * $ * ****££ $*£ **£#£*£ $$$$$ 4c^S*** 

***** INITIALIZATION OF VARIAELES 

STORE * ' TO BWrCURR 

STORE • • TO B W : PREV 

STORE * • TO BW.-CLD 

STORE 0 TO EW: CR EC 
STORE 0 TO EW: CC LOS 
STORE 0 TO EW: C9COG 
STORE 0 TO EW: CS PCC 
STORE 0 TO EW: PR EC 
STORE 0 TO EW:PIN 
STORE 0 TO EW: PC LOS 
STORE 0 TO EW: P9 COG 
STORE 0 TO EW: PS PCC 
STORE 0 TO EW : OR EC 
STORE 0 TO E W : 0 C LO S 
STORE 0 TO EW: OC LOS 
STORE 0 TO BW: 0 9 COG 
STORE 0 TO EW:OSFCC 
STORE 0 TO BW.-CRECC 
STORE 0 TO EW: PR ECC 
STORE 0 TO BW.-ORECC 
STORE 0 TO EW: OPERR 
STORE 0 TO EW;C ERROR 
STORE 0 TO EW-.PERROR 
STORE 0 TO EW: OERROR 
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***** THIS SEQUENCE CALCULATES THE UPPER AND LOWER YEARS 
***** poE INPUT AND IS BASED ON THE CURRENT JULIAN DATE 
***** c: JULIAN. BW:L1IMIT= YEAR MINUS TWO YEARS 
***** gw : U LIMIT = YEAR PLUS ONE YEAR 

STORE $ (C: JULIAN, 1,2) TO TEMPI 

STORE VAX (TEMPI) TO TEMP 1 A 

STORE V A I (’ 2') TC LOW 

STORE VAL (' 1*) TO HIGH 

STORE TEMP1A-LOW TO IIMT 

STORE TEMPI A+HIGH TO ULMT 

STORE STR (LLMT , 2) TO EW: LLIMIT 

STORE STR (ULMT, 2) TO EW : ULI MIT 

RELEASE TEMPI, TEMPI A, LOW, HIGH, LLMT, ULMT 



STCRE 
STORE T 
ERASE 
DO WHILE 



T TO 



• TO EW : EDATE 
E W : CHOO SE 



EW : CHOOSE 



•PLEASE ENTER THE CLOSING DATE' 
• FOR THIS BIWEEKLY REPORT ' 



BW : EDATE 



< MM DD Y Y> 
PICTURE 



a) 10,20 SAY 
a 11,20 SAY 
a 12,20 SAY 
a 14,30 GET 
READ 
IF $ { B W 
.OR. 

.OR . 

.OR . 

.OR. 

.OR. 

a 

ELSE 

STCRE 

END IF 

ENEDO<B W: CHCCSE> 
a 23, 30 SAY • 

RELEASE BW : CHOOSE, BW : LLIMIT, BW:ULIMIT 



999999 



EDATE, 1,2) <‘0 

$ (BW: EDATE, 1,2 
$ (BW: EDATE, 3,2 
$ (BW: EDATE, 3,2 
$ (BW: EDATE, 5,2 
$ (BW: EDATE, 5, 2 
23,30 SAY 'DATS 



i 

>• 12 ' ; 

<• 01 ' ; 

> • 3 1 • ; 

< BW: LLIMIT ; 

> B W : ULIMIT 
OUT OF RANGE' 



F TO EW: CHOOSE 



***** CALCULATE THE DATES TO BE SEARCHED FOR AND ASSIGN 
***** them TO THE VA5ABLES: BW :CURR, BW : PREV, BW; OLD 

***** ENTER THE CALL TO C:OJULIAN TO CHANGE MMDDYY TC 
***** juuaN FORMAT 



STORE 

STORE 



VAL 

VAL 



$ (BW: EDATE,1 ,2j 



$ (BW : ED ATE, 3 , 2 
STORE VAL 1 $ (BW:EDATE,5,2j 
DC C : 0 JUL IAN 

STORE V: JU LDATE TC EW:CURR 
RELEASE ALL LIKE V:* 



TO V:MM 
TO V : DD 
TO V : YY 



STORE $ ( B W : CURR, 1,2) TO B W: TYR 
STORE VAL^EW: TYfiV TO BW : T YR3 
STORE BW : T YR3- 1 TO B W : T YR 1 
STORE BW : T YE3-2 TO BW :TYR2 
STORE STR (EW: TYR 1 ,2) TO BW;PREVT 
STORE STR (EW.-TYR2 ,2) TO BW : OL DT 
STORE BW: PREVT+S (BW: CURR. 3.3) TO 
STORE BW : OLET+S (B W : CURR ,3 , J) TO 



BW:PREV 
BW: OLD 



RELEASE BW:PREVT, BW: OLDT, BW :TYR, BW: TYR 1 ,BW:TYR2 



ERASE 

a 12,20 

a 14,20 
a 23,2 0 



SAY • BIWEEKLY STATUS REPORT IS BEING • 
+ ' PROCESS ED' 

SAY ' PLEASE STANDBY 

SAY • **** DO NOT INTERRUPT WHILE • 
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♦ ' EEOCESS IMG **** ' 



***** HMD DATE CHANGE AND ASSIGNMENT HERE 

USE D: OPEN 1 

DO WHILE .NCI. EOF 

STORE DATES TO MrDATES 
STORE COG TO M : COG 



STORE 

STORE 



( M :DATES ,11,5 

j - 



TO BWiODAT 
TO BW : CD AT 



4- v i- ♦ DATES ,36,5) ^ ^n.^^x 

IF $ (BW: CCAT,1, 2) = $ (BK: CURR, 1 , 2) 

STORE BWiCREC + 1 TO 3WiCF.EC 
IF B W :CDAT <> ' ' 

STORE B W : CCLOS + 1 TO BW:CCLOS 

ELS E 

IF S (M: COG, 1,1) = ' 9' 

STORE EW : C9COG + 1 TO BW:C9COG 

ELSE 

STORE EW : CS PCC + 1 TO BWrCSPCC 
ENDIF 
ENDIF 

ENDIF < THIS CASE IN CURRENT YEAR COUNT> 

IF $ (BW: CDAT,1 , 2) = $ (B W: PRE V , 1 ,2) 

STORE BW :PR EC + 1 TO BW:PREC 
IF B W :CDAT <> ' ' 

STORE BW:PCLOS + 1 TO BW: PCLOS 

ELS E 

IF $ (M: COG , 1 ,1) = '9' 

STORE EW : P9 COG + 1 TO BW:P9COG 

ELSE 

STORE EW:PSPCC + 1 TO BW:PSPCC 
ENDIF 
ENDIF 

ENDIF < THIS CASE IN PREVIOUS YEAR COUNT> 

IF $ (3W:CEAT,1, 2) = $ (BW:OLD, 1 ,2) 

STORE BW :OR EC + 1 TO BW:OREC 
IF 3 W :CDAT <> * ' 

STORE BW :OCLOS + 1 TO BW: OCLOS 

ELS E 

IF $ (M: COG, 1 ,1) = ' 9' 

STORE BW:09C0G + 1 TO BW:09C0G 

ELSE 

STORE EW :OSPCC + 1 TO BW:OSPCC 
ENDIF 
ENDIF 

ENDIF < THIS CASE IN OLDEST YEAR COUNT> 

IF $ (BW: CDAT, 1 , 2) <>$ (BW:CURR, 1 ,2) .AND.; 

$ (BW : CEAT, 1 , 2) <>$ (BW :PREV, 1,2) . AND. ; 

$ (BW : CDAT, 1 , 2) OS (BW :OLD, 1,2) 



ENDIF 

SKIP 



STCRE BW : OPERR + 1 TO BW:OPERR 



ENDDO <SE ARCH OF 0 PEN 1 . DBF > 

***** ENE 0F THE OPENFILE SEARCH, NOW FOR THE CLOSED FILES 

USE D: C LOS E 1 

DO WHILE . NCT. EOF 

STORE DATES TO M : D AT ES 
STORE COG TO H: COG 



168 



STORE $ (M:DATES , 11 , 5) TO 3W:ODAT 
STORE S (II: DATES ,36 , 5) TO BW : CD AT 
I? $ (BW: 0DAT,1 , 2) = $ (B W: CURE, 1 ,2) 

STORE EWsCfiECC + T TO 5W:CEECC 
IF 3K:CDAT <> 1 5 

STORE B W ; C ERROR + 1 TO 3W:C2EROR 
END I F 

ENDIF < THIS CASE IN CURRENT YEAR COUNT> 

IF $ (BW: CDAT,1 , 2) = S (3 W: PRE V , 1 , 2) 

STORE BW:PRECC + T TO 3W:PRECC 
IF B W :CDAT <> ' ' 

STORE S W : PEER OR ♦ 1 TO BW :PERROR 
END I ? 

ENDIF < THIS CASE IN PREVIOUS YEAR COUNT> 

IF $ (B W : CEAT, 1.2) = $ (BW: OLD, 1 , 2) 

STORE BW :OR ECC + 1 TO BW:ORECC 
IF BK:CDAT <> ' ' 

STORE B W :0 ERROR + 1 TO BW :OERROR 
ENDIF 

ENDIF < THIS CASE IN OLDEST YEAR COUNT> 

SKIP 

ENDDO <SE ARCH OF CLOSE1 ♦ DBF > 

STORE B W: C 9CCG + 3W:CSPCC TO BW:CTOT 
STCRE BW: P9CCG + BW:PSPCC TO BW-.PTOT 
STORE BW: 09CCG + BW:OSPCC TO BW:OTOT 
STCRE BW: OEERCR+BW :P ERROR* BW :CERROR TO BW : TERROR 

STORE '19' + $ (BW: CURB, 1 , 2 ) TO BW : CY EAR 
STORE *19* + $ (BW: PREV r 1 .2) TO BW : PY EAR 
STCRE ' 19' + $ (BW: OLD ,1,2) TO B W : OYE AR 

USE D: BIWKSTAT 

STCRE TOTALS TO BW :SCTOT 
SKIP 

STCRE TOTALS TO BW:SPTOT 
SKIP 

STCRE TOTALS TO BW:SOTOT. 

STCRE ' ' TO BW :CLAEEL 

STCRE ' ' TO BW : PL AEEL 

STORE • ' TO B W : OL AEEL 

IF BW : SCTOT < BW:CTOT 

STORE- 'UP' TO BW :CLABEL 

ENDIF 

IF BW: SCTOT > BW:CTOT 

STORE 'DOWN* TO EW: CLAB EL 

ENDIF 

IF BW: SPTOT < BW: PTOT 

STORE 'UE' TO EW : PL ABEL 
ENDIF 

IF BW: SPTOT > BW : PTOT 

STORE 'DOWN' TO B # : PLA BEL 
ENDIF 

IF BW : SOTOT < BW:OTOT 

STORE 'UP' TO EW : OL ABEL 
ENDIF 

IF BW: SCTOT > BW : 0 TOT 

STORE ' DOWN ' TO B W : OLABEL 
ENDIF 

STORE BW: SOTCT-BW: OTCT TO BW : OTRD 
STCRE BW: SPTCT-BW: PTOT TO BW : PTRD 
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STORE BW: SCTCT-BW: CTCT TO BW;CTRD 



SET FORMAT TO PRINT 



3 

3 

3 

3 

3 

3 

3 

3 

3 

3 



2.30 
4,3 0 

6.30 

8.30 
8,47 

10.30 
10,50 
12 , 10 

13, 10 

14, 1 0 



SAY 

SAY 

SAY 

SAY 



CODE 9142 TECHNICAL BRANCH* 
QUALITY DEFICIENT MATERIAL « 
BIWEEKLY STATUS REPORT ' 
THRU* 



EW.-CURR 

t 

spec 

•CALENDAR 

CPEN 

• Y EAR 



JULIAN DATE 



SAY $ (B W: ED ATE , 1 , 2) ♦«/'+$ (BW: EDATE, 3,2) +; 
’/' + $ (BW ; ED ATE, 5 , 2) 

SAY ‘ “ 

SAY 
SAY 

+ • SPCC 9-COG TOTAL 

SAY 

+• CPEN OPEN OPEN 

SAY 

+ • CASES CASES CASES 



C 5 S E ^ 

TREND' 

CLOSED 



3 18,13 SAY EWrOYEAR 
STORE BW:OREC+BW:ORECC 
3 18,18 SAY EW : TOR EC 

3 18,30 SAY 

3 18,40 SAY 

3 18,50 SAY 

3 18,60 SAY 

3 18,70 SAY 

3 18,80 SAY 



TO BW.'TOREC 



EW : ORE CC 
EWiOSPCC 
EW : 09C OG 
EW : OTO T 
EW ; OTR D 
EW : OLA EEL 



3 20, 13 SAY EW : PYE AR 
STORE BW:PREC+EW:PRECC 
3 20, 1 8 SAY BW; TPR EC 
3 20,30 SAY 
3 20,40 SAY 
3 20,50 SAY 
3 20, 60 SAY 
3 20,70 SAY 
3 20, 80 SAY 



TO BW : TPREC 



EW : PRE CC 
EW : PSP CC 
EW.-P9COG 
EW; PTOT 
EW ; PTR D 
EW; PLABEL 



3 22, 13 SAY EWrCYEAR 
STORE BW; CR EC+BW; C RECC 
3 22, 1 8 SAY 
3 22, 30 SAY 
3 22,40 SAY 
3 22, 50 SAY 
3 22,60 SAY 
3 22, 70 SAY 
3 22,80 SAY 



EWiTCREC 
EW ; CRE CC 
EW ; CSP CC 
EW ; C9C CG 
EW ; CTO T 
EW-.CTRD 
EW; CL A BEL 



TO BW.-TCREC 



EJECT 



3 36, 
3 40, 
3 40, 
3 40, 
STCRE 
3 42, 
3 42, 
STORE 
IF BW 
S 

EN DIF 
IF BW 
S 

ENDIF 
STCRE 
3 42, 
3 42, 



24 SAY ' 

25 SAY BW;P YEAR 

40 SAY B W; C YEAR 

55 SAY 'TREND' 

BW:PREC+BW;PRECC TO BW;TPREC 
18 SAY EW ; TPR EC 
32 SAY EW ; CRE C 
' • TO BW :TLAEEL 

; TPR EC > BW; C REC 
TORE 'DOWN' TO BW :TLABEL 



CASE INPUT COMPARISON' 



: T PREC < 
TORE 'UF' 



BW.-CREC 
TO BW; TLABEL 



BW;CREC-BW; TPREC 
48 SAY EW ;TTR D 
59 SAY EW ; TLA BEL 



TO BW ;TTRD 



***** PAGE TW0 
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STCRS B W: CREC+ BW: P REC+B W : 0 EEC TO 5W:TRZC 
STCRE EW:CRECC+3W : PRECC+BW :ORECC TO BW:TK3CC 



m 

a 

a) 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 



2.30 SAY 

4.3 0 SAY 

6.3 0 SAY 

8.30 SAY 
8,47 SAY 

♦ •/' ♦ 
10,33 SAY 
10,52 SAY 



CODE 9142 TECHNICAL BRANCH* 
QUALITY DEFICIENT MATERIAL* 
BIWEEKLY STATUS REPORT * 
THRU* 

(B W: ED ATE , 1 ,2) ♦ '/'+$( BW : EDATE , 3,2) 
(3W : ED ATE ,5 , 2) 

* JULIAN DATE* 

EW : CUR R 



14.25 SAY 

14.70 SAY 

16.25 SAY 

16.70 SAY 

18.25 SAY 

18.69 SAY 

20.25 SAY 
+ ' FILE . 

20.70 SAY EW :TER ROR 
28,40 SAY 'END OF REPORT 



'TOTAL RECORDS 
f w * tr? r 

•TOTAL RECORDS 
EW : TRE CC 
'RECORDS 
EW : OPE RR 
• RECORDS 

i 



WITH 
- 1 
WITH 



ON OPEN FILE:' 

ON CLOSED FILES: ' 

INVALID DATES, OPEN FILE:' 
INVALID DATES, CLOSED ' 



EJECT 

SET FORMAT TO SCREEN 

***** STUFF NEW COUNTS INTO THE BIWKSTAT DATABASE 

USE D: BIWKSTAT. DBF 

REPLACE TOTALS WITH BW: CTRD 

SKIP 

REPLACE TOTALS WITH EW : PTRD 
SKIP 

REPLACE TOTALS WITH BW : OTRD 
RELEASE ALL LIKE BW:* 

ERASE 

RETURN 

***** ENE CF program 
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XVII. MONTHLY STATISTICS REPORT MODULE 



******************************************* ** ************** 
** 

** DATE: 8 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: XXMNSTAT ** 

** MODULE PURPOSE: CALCULATE MONTHLY STATISTICS REPORT ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C: WHO r C: JULIAN ** 

** OUTPUTS: NONE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ACCEPTS THE ENDING DATE AND THEN CALCULATES THE ** 

** JULIAN DATE FOR THIS YEAR AND THE PRIOR TWO ** 

** YEARS. THE OPEN AND CLOSE DATA BASES ARE ** 

** SEARCHED SEQUENTIALLY TO FIND THE STATUS OF ** 

** EACH CASE IN THE DESIGNATED TIME PERIODS AND ** 

** COUNTS ARE SUMMARIZED INTO MEMORY VARIABLES. ** 

** AFTER PROCESSING, THE REPORTS ARE GENERATED TO ** 

** THE PRINTER. THIS INCLUDES THE MONTHLY STATUS ** 

** REPORT BY YEAR, COMMAND KEY INDICATORS FOR ** 

** CURRENT YEAR, AND THE SUMMARY REPORT FOR THE ** 

** CURRENT YEAR. THIS SHOULD BE DONE ’OFF* TIME ** 

** AND WHEN THE SYSTEM IS NOT BEING USED. OUTPUT ** 

** IS DIRECTED TO THE PRINTER. ** 

** ERROR LISTING CAN EE RETREIV ED IN D: MSB AD. TXT ** 

** . BY *TY PING * USING THE OPERATING SYSTEM. ** 

3$C3§C 

** SUPEROR DIN AT E MODULES: SUPRPTS ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: J.G. BOYNTON ** 

******************** ******* ****************** **** ********** 

SET ALTERNATE TO D : MSE AD 
STORE 1 TO MS: ROW 

***** INITIALIZATION OF VARIABLES 

STORE 0 TO MS: C RCVD 
STORE 0 TO MS:OPTOT 
STORE 0 TO MS: CL TOT 
STORE 0 TO MS.-OPERR 
STORE 0 TO MS: CL ERR 

***** THIS SEQUENCE CALCULATES THE UPPER AND LOWER YEARS 
***** fOR INPUT AND IS BASED ON THE CURRENT JULIAN DATE 
***** C: JULIAN. MS : LLIMIT= YEAR MINUS TWO YEARS 
***** £S : ULIMIT = YEAR PLUS ONE YEAR 

STORE $ (C: JULIAN, 1 ,2) TO TEMPI 

STORE VAL (T EMP1 j TO TEMPI A 

STORE VAL (» 2») TO LOW 

STORE VAL (' 1 «) TC HIGH 

STORE TEMPI A-LOW TO LLMT 

STORE TEMP 1 A+HIGH TO ULMT 

STORE STR (L LMT , 2 ) TO MS : LLI MIT 

STORE STR (ULMT ,2) TO MS:ULIMIT 

RELEASE TEMPI, TEMPI A, LOW, HIGH, LLMT, ULMT 

***** XNFUT OF REPORT CLOSING DATE 
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STORE ' * TO MS: HD ATE 

STORE T TO MS: CHOOSE 
ERASE 

DO WH T T 7 M c . f POOS r 

‘ “* 10 V 2 6 'say « PLEASE ENTER THE CLOSING DATE* 

3 11, 2C SAY ' FOR THIS MONTHLY REPORT ' 

3 12,20 SAY • <MMDD YY> • 

3 14,31 GET M S: EDATE PICTURE '999999* 

READ 

IF $ (MS: EDATE ,1,2) < '01* : 

.OR. $ (MS: ELATE, 1, 2) >*12* ; 

.OR. $ (MS: EDATE, 3, 2 < '01' ; 

.OR. $ (MS: EDATE, 3, 2) >' 31 * ; 

.OR. $ (MS: ELATE. 5, 2) < MS : LL IMI T ; 

.OR .$ (MS: ED ATE, 5, 2) >MS:ULIMIT 

3 23,30 SAY f DATE OUT OF RANGE* 

EL SE 

STOEE F TO MS :CHOOSE 
EN DIF 

ENDDO < MS : C HCOS E> 

3 23, 30 SA Y ' • 

RELEASE MS : CHOOSE , MS : LLIMIT, MS : ULIMIT 

***** CALCULATE DATES TO BE SEARCHED FOR AND ASSIGNS THEM 
***** TC VARIABLES 



***** 

***** 



ENTER THE CALL 
JULIAN FORMAT 



TO C: 0 JULIAN TO CHANGE MMDDYY TC 



$ (MS : ED ATE, 1 ,^j 



STORE VAL , . . _ 

STORE VAL ($ (MS:ED ATE, 3, 2 
STORE VA L ( $ (MS : ED ATE , 5 , 2) 
DC C : 0 JUL I AN 

STORE V : J U II ATE TO MS:CJUL 



TO V : MM 
TO V:DD 
TO V:YY 



***** THIS CALCULATES THE JULIAN DATE OF THE FIRST DAY 
***** of THE MONTH OF INTEREST 

STORE VAL ( * 01 * ) TO V:DD 
DC C.-OJULIAN 

STORE V: JULDATE TO MS:CJUL1 

STORE $ (MS :CJUL, 1 ,2) TO MS: TYR 
STORE VAL ( MS: TYR) TO MS : T YR3 
STORE MS : T YB3~ 1 TO MS :TYR 1 
STORE MS : T YB3- 2 TO MS:TYR2 
STORE STR (MS.-TYR1 ,2) TO MS-.PREVT 
STORE STR (MS:TYR2 ,2) TO MS: OLDT 
***** CALCULATE THE CALENDAR AND JULIAN DATES FOR THE 
***** PREVIOUS YEAR 

STORE VAL ($ (MS :ED ATE, 1 , 2) ) TO V:MM 
STORE VAL (I (MS:ED ATE, 3 ,2) ) TO V:DD 
STORE VAL ( MS : PREV T) TO V: YY 
DC C:OJULIAN 

STORE V: JULDATE TO MS:PJUL 

**** CALCULATES FIRST DAY OF MONTH IN PREVIOUS YEAR 

STORE VAL ( '01 ') TC V:DD 
DC C:OJULIAN 

STORE V: JULDATE TC MS:PJUL1 
***** CALCULATES ENDEATE OF MONTH IN OLDEST YEAR 
STORE VAL ($ (MS: ED ATE,1 ,2) ) TO V:MM 
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TO V : DD 



STORE VAL ($ (MS:EDATE.3,2) ) 

STORE VAL(MS:OLDT) TO V; YY 
DC C : 0 JULI AN 

STORE V: JULCATE TO NS:OJUL 

***** CALCULATES FIRST DAY OF MONTH IN OLDEST YEAR 

STORE VAL ( ’ 01 * ) TO V:DD 
DC C : 0 JULl AN 

STORE V: JU ID AT E TO MS:OJUL1 

RELEASE MS : FREVT , MS: OLDT, MS : T YR , MS : TYR 1 , MS : T Y 52 ; 
MS :TYR3 

RELEASE ALL LIKE V:* 



E RAS E 

3 12,20 SAY ' MONTHLY STATUS REPORT IS BEING ; 
♦ * PROCESS ED* 

3 14,20 SAY » PLEASE STANDBY * 

3 23,20 SAY ***** DC NOT INTERRUPT WHILE ; 

+' PROCESSING ***** 

***** end DATE CHANGE AND ASSIGNMENT HERE 



***** SEARCH THE OPEN DATABASE 



STORE 


0 


TO 


MS 


COI 


STORE 


0 


TO 


MS 


C02 


STORE 


0 


TO 


MS 


C03 


STCRE 


0 


TO 


MS 


C04 


STORE 


0 


TO 


MS 


POI 


STCRE 


0 


TO 


MS 


P02 


STORE 


0 


TO 


MS 


P03 


STCRE 


0 


TO 


MS 


P04 


STORE 


0 


TO 


MS 


001 


STCRE 


0 


TO 


MS 


002 


STORE 


0 


TO 


MS 


003 


STCRE 


0 


TO 


MS 


004 


STORE 


0 


TO 


MS 


PTOT 


STCRE 


0 


TO 


MS 


OTOT 


USE D: 


OPEN 1 







DO WHILE . NCT. EOF 

STORE DATES TO M : D AT ES 

STORE $ (M IDATES , 1 1 , 5) TO 
STORE $ (M.-DATES ,36 ,5) TO 



MS : OD AT 
MS : CD AT 



***** jF CASE IS IN 'CURRENT ' Y E Ar 

IF $ (MS:CDAT,1, 2) = $ (MS : CJUL, 1 , 2) 

IF MS : CDAT > MS:CJUL1 .AND. MS :OD AT<MS : C JUL 
STORE MS : CRCVD + 1 TO MS:CRCVD 

***** jF CASE IS STILL OPEN IT SHOULD BE IN THIS FILE 



IF MS : C C AT = * « 

TO V : CD AT 
TO V:ODAT 

STORE V : CD AT - V : 0 DAT ' TO ' V : TI M EN 
STORE STR (V : TIMEN , 3) TO MS : TIM E 
RELEASE ALL LIKE V:* 



STORE VAL ($ (MS:CJUL,3 ,3) ) 
STORE VAL_($]MS:ODAT,3,3) ) 



DO CASE 

CASE MS.-TIME < *61* 
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CASE 


STORE MS : C0 1 + 
MS: TIME < *121' 


1 


TO 


CASE 


STORE MS:C02 + 
MS: TIME < '181' 


1 


TO 


CASE 


STORE MS :C03 + 
MS: TIME > '180* 


1 


TO 


ENDCASE 


STORE MS.-C04 + 


1 


TO 



ENDIF 
END IF 

ENDIF < CASE OPENED IN THE CURRENT YEAR 



MS :C01 
MS: CO 2 
MS : CO 3 
MS :C04 



> 



***** if CASE IS IN PREVIOUS YEAR 

IF $ (MS:CEAT,1, 2) = $ (MS: PJUL, 1,2) 

IF 



MS.-ODAT > MS : P JUL 1 .AND. MS: OD AT<MS : PJ UL 
STORE MS : PTOT + 1 TO MS:PTOT 



***** IF CA£E is STILL OPEN IT SHOULD BE IN THIS FILE 

IF MS:CEAT = * ' 

STORE VAL ($ (MS: PJUL, 3 ,3) ) TO V 
STORE VAL ($ (MS.-ODAT, 3,3) ) TO V 



CD AT 
ODAT 



STORE V : CD AT - V:ODAT TO V : TIMEN 
STORE STR (V :TIMEN,3) TO MS : TIME 
RELEASE ALL LIKE V:* 



TO MS 
TO MS 



PO 1 
PO 2 
PO 3 



TO MS:P04 



DO CASE 

CASE MS: TIME < '61' 

STORE MS : P0 1 + 1 TO MS 
CASE MS: TIME < '121' 

STORE MS : P02 + 1 
CASE MS: TIME < *181* 

STORE MS : P03 + 1 
CASE MS: TIME > ' 180' 

STORE MS:P04 + 1 

ENDCASE 

ENDIF 

ENDIF 

ENDIF < CASE OPENED IN THE PREVIOUS YEAR > 

***** ip CASE IS IN CLDEST YEAR 

IF $ (MS: CDAT, 1 , 2) = $ (MS: OJUL, 1 ,2) 

IF M S : 0 D AT > MS : 0 JUL 1 .AND. MS :ODAT<MS : OJUL 
STORE MS.-OTOT + 1 TO MS:OTOT 

***** ip CASE IS STILL OPEN IT SHOULD BE IN THIS FILE 

IF MS • C C AT = ' ' 

STORE VAL($ (MS:OJUL,3,3) ) TO V:CDAT 
STORE VAL ($ (MS: ODAT, 3 ,3; ) TO V:ODAT 
STORE V : CD AT - V:ODAT TO V: TIMEN 



RELEASE 


ALL LIKE V:* 










DO CASE 












CASE 


MS.-TIME < *61* 
STORE MS:001 + 


1 


TC 


MS 


: CO 1 


CASE 


MS: TIME < » 121' 
STORE MS:002 + 


1 


TO 


MS 


: CO 2 


CASE 


MS: TIME < '18 1' 
STORE MS: 003 + 


1 


TO 


MS 


:C0 3 


CASE 


MS.-TIME > ' 180' 
STORE MS:004 + 


1 


TO 


MS 


: C04 
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END CASE 
ENDIF 
END IP 

ENDIF < CASE OPENED IN THE OLDEST YEAR > 

IF $ (MS: CDAT, 1 , 2} OS (MS.-CJUL, 1 ,2) .AND.; 

I (MS:CEAT,1, 2 <>$ (MS:PJUL,1 ,2) .AND. ; 

$ (MS : CDAT , 1 , 2)0$ (MS:0JUL,1 , 2 ) 

STCRE MS : OPERR ♦ 1 TO MS:OPERR 
STORE CASE TO MS: CASE 
SET ALTERNATE ON 
? MS : ROW , 10 SAY 'OCASE' 

? MS : ROW ,18 SAY MS:CASE 
? MS: ROW ,30 SAY $ (MS : OD AT, 1 ,2) + V ; 

♦$ (MS: CD AT, 3,2) + • /' +$ (MS : OD AT , 5 , 2) 
? MS :ROW ,40 SAY $ ( MS : CD AT , 1 , 2 ) + ■/ ' + ; 

$ ( MS: C DAT, 3 ,2) +'/'+$ (MS: CDAT, 5 , 2) 
STCRE MS: ROW + 1 TO MS: ROW 
SET ALTERNATE OFF 

ENDIF 

STORE MS :CPTOT + 1 TO MS:OPTOT 

SKIP 

ENDDO < WHILE NOT EOF IN OPEN FILE > 

***** START THE SEARCH AND COUNT IN THE CLOSED DATABASE 
***** INITIALIZATION CF VARIABLES FOR CLOSED FILE 



STCRE 


0 


TO 


MS 


OCL 1 


STORE 


0 


TO 


MS 


0CL2 


STCRE 


0 


TO 


MS 


0CL3 


STORE 


0 


TO 


MS 


0CL4 


STCRE 


0 


TO 


MS 


PCL1 


STCRE 


0 


TO 


MS 


PCL2 


STCRE 


0 


TO 


MS 


PCL3 


STCRE 


0 


TO 


MS 


PCL4 


STCRE 


0 


TO 


MS 


CCL1 


STCRE 


0 


TO 


MS 


CCL2 


STCRE 


0 


TO 


MS 


CCL3 


STORE 


0 


TO 


MS 


CCL4 



USE D : C LOS E 1 

DO WHILE . NCT. EOF 

STORE DATES TO M: E AT ES 

STORE $ (M:DATES ,11 ,5) TO MS :0D AT 
STORE $ (M:DATES ,36,5) TO MS : CD AT 

IF $ (MS: CEAT,1 , 2) = $ (MS: CJUL, 1 ,2) 

IF MS :CD AT > MS:CJUL1 .AND. MS: CDAT<MS : CJ UL 
STORE MS : CRC VD + 1 TO MS:CRCVD 



IF MS: C DAT <> ' • 

STORE VAL ($ (MS: CDAT, 3 ,3) ) TO V:CDAT 
STORE VAL ($ (MS: 0DAT,3 ,3) ) TO V:ODAT 
STORE V : CDAT - V:ODAT TO V : T I M E N 
STORE STR (V :TIMEN, 3) TO MS.’TIME 
RELEASE ALL LIKE V:* 

DO CASE 

CASE MS: TIME < *61 ' 

STORE MS : CCL1 + 1 TO MS:CCL1 
CASE MS : TIME < *121* 



176 



STORE MS : CCL2 + 1 TO MS.-CCL2 
CASE MS: TIMS < *131' 

STORE MS : CCI3 + 1 TO MS :CCL3 
CASE MS: TIME > *180* 

STORE MS.-CCL4 + 1 TO MS :CCL4 

ENDCASE 

ENDIF 

ENDIF 

ENDIF < CASE OPENED IN THE CURRENT YEAR > 



***** IF CA£E IS t PEEVIOU S YEAR 

IF $ (MS : CCAT, 1 , 2) = $ (MS:PJUL, 1,2) 

IF M S :CDAT > MS:PJUL1 .AND. MS: CDAT<MS : PJUL 
STORE MS : PTOT + 1 TO MS:PTOT 



IF MS : C DAT <> 

STORE VAL 
STORE VAL 
STORE V: CDAT - 



($ (MS: CDAT, 3 r 3) ) 
($ (MS :0 DAT, 3, 3) ) 



STORE STR (V.-TIMEN, 3) TO 
RELEASE ALL LIKE V:* 

DO CASE 

CASE MS: TIME < *61* 
STORE MS:PCL1 + 
CASE MS.-TIME < *121* 
STORE MS-.PCL2 + 
CASE MS: TIME < '181* 
STORE MS.-PCL3 + 
CASE MS : TIME > *180* 
STORE MS : PCL4 + 

ENDCASE 

ENDIF 

ENDIF 

ENDIF < CASE CLOSED IN THE PREVIOUS 



TO V : CD AT 
TO V-.ODAT 
V:ODAT TO V.-TIMEN 



MS: TIME 

1 TO MS : PCL 1 
1 TO MS : PCL2 
1 TO MS : PCL3 
1 TO MS : PCL4 

YEAR > 



***** ip CASE IS IN CIDEST YEAR 

IF $ (MS:CEAT,1, 2) = $ (MS: OJUL, 1 , 2) 

IF M S :CDAT > MS: 0 JUL1 .AND. MS:CDAT<MS : CJ UL 
STORE MS : OTOT + 1 TO MS:OTOT 



***** IF CASE IS CLOSED < IT SHOULD BE TO BE IN THIS FILE > 



IF MS: C DAT <> ' ' 

STORE VAL($ (MS : CDAT , 3 , 3) ) TO V:CDAT 
STORE VAL ($ ?MS : ODAT , 3 ,3) ) TO V:ODAT 
STORE V : CDAT - V.-ODAT TO V : TIME N 
STORE STR (V :TIMEN, 3) TO MSiTIME 



RELEASE 


ALL LIKE V:* 










DO CASE 












CASE 


MS: TIME < *61 ' 
STORE MS:OCL1 + 


1 


TO 


MS 


:OCL1 


CASE 


MS: TIME < *121* 
STORE MS : OCL2 + 


1 


TO 


MS 


:OCL2 


CASE 


MS.-TIME < '181* 
STORE MS :OCL3 + 


1 


TO 


MS 


.-OCL3 


CASE 


MS: TIME > *180* 
STORE MS-.OCL4 + 


1 


TO 


MS 


:OCL4 


ENDCASE 













ENDIF 

ENDIF 
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ENDIF < CASS CLOSED IN THE OLDEST YEAR > 



IF $ (MS :CEAT,1, 2) OS (MS :CJUL, 1 ,2) .AND. : 

$ (MS: CCAT , 1, 2) OS (MS:PJUL, 1,2) .AMD. ; 

$ (MS : CDAT, 1 , 2 ) OS (MS :OJUL, 1 , 2 ) 

STCRE MS: CL ERR + 1 TO MS: CL ERR 
STORE CASE TO MS:CASE 
SET ALTERNATE ON 
? MS : ROM ,10 SAY 'CCASE' 

? MS : ROW ,18 SAY MS:CASE 
? MS : ROM ,30 SAY $ (MS : ODAT, 1 ,2) + V 1 : 
+$ (MS: OEAT,3,2) + •/• +S (MS :ODAT , 5 , 2) 
? MS : ROM ,40 SAY $ ( MS : CDAT , 1 , 2 ) + 4 / • + ; 

$ (MS: CD AT, 3 ,2) + * /' +S (MS: CDAT , 5 , 2) 
STCRE MS :ROW + 1 TO ROM 
SET ALTERNATE OFF 

ENDIF 

STORE M S :CLTOT + 1 TO MS:CLTOT 

SKIP 

ENDDO < SEARCH FOR CASE IN THE CLOSED FILE > 
RELEASE MS .* CJUL 1 , M S : F JUL 1 , MS : 0 JUL 1 , M : DA TES 



***** DETERMINE WHICH MONTH IT IS FOR THE REPORT 



DO CASE 








CASE 


$ s 


MS : ED ATE , 1,2) 
ORE 'JANUARY' 


= '01' 




ST 


TO MS : MONTH 


CASE 




MS : EDATE , 1,2) 
ORE 'FEBRUARY' 


= '02' 




ST 


TO MS ‘.MONTH 


CASE 


S^ 


MS: EDATE ,1.2) 
ORE 'MARCH 1 TO 


= '03* 




MS: MONTH 


CASE 




MS:EDATE ,1,2) 
ORE 'APRIL 1 TO 


= '04' 




ST 


MS: MONTH 


CASE 


$ 1 


MS : EDATE , 1,2) 
ORE ' MA Y ' TO M 


= '05' 




ST 


S: MONTH 


CASE 


$ i 


MS: ED ATE, 1, 2) 


= '06' 




ST 


ORE 'JUNE' TO 


MS: MONTH 


CASE 


$ l 


MS : EDATE ,1,2) 
ORE 'JULY' TO 


= '07' 




ST 


MS: MONTH 


CASE 


$ (MS:EDATE ,1,2) 


= '08' 




STORE 'AUGUST' TO MS :MONTH 


CASE 




MS: EDATE ,1,2) 
ORE 'SEPTEMEEfi 


= '0 9' 




ST 


' TO MS .-MONTH 


CASE 


$ i 


MS: EDATE ,1,2) 


= '10' 




ST 


ORE 'OCTOBER' 


TO MS: MONTH 


CASE 




MS : EDATE ,1,2) 
ORE 'NOVEMBER' 


= '11' 




ST 


TO MS: MO NTH 


CAS E 


$ 1 


MS.-EDATE, 1, 2) 
ORE 'DECEMBER' 


= '12' 


EN CCASE 


ST 


TO MS: MONTH 



STORE '19' + $ (MS: OJUL, 1 ,2) TO MS:OYR 

STORE '19' + $ (MS: PJUL, 1 ,2) TO MS:PYR 

STORE '19' + $ (MS: CJUL, 1 ,2) TO MS:CYR 

STORE MS: OCI1+MS:OCL2+MS:OCL3+MS:OCL4 TO MS :OCL5 
STORE MS: 001 + MS: 002 + MS:003 + MS: 004 TO MS:C05 
STCRE MS: 005+MS :0CL5 TO MS:OCASE 

STORE MS: PCL1+MS:PCL2+MS:PCL3+MS: PCL4 TO MS:PCL5 
STCRE MS:P01 + MS : P02 + MS:P03 + MS:P04 TO MS:P05 
STCRE MS: P05+MS-.PCL5 TO MS:PCASE 
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STORE MS: CCL 1+ MS: C CL2+MS : CCL3+ MS : CCL4 TO MS:CCI5_ 
STORE MS:C01 + MS : C02 + MS:C03 + MS:C04 TO MS: COB 
STORE MS: C05+MS:CC 15 TO MS:CCASE 



STORE 

STORE 

STORE 

STORE 

STORE 



0 TO 60 DAYS* TO MS.’LBLI 
61 TO 120 DAYS' TO MS : LBL2 
121 TO 180 DAYS' TO MS : LBL3 
181 DAYS OR OVER' TO MS : LBL4 
TOTALS:' TO MS : LBL5 



SET FORMAT TO PRINT 



a) 

a 

a 

a 

a 



2.25 

3.25 

4.25 

5.25 
5,42 



SAY 

SAY 

SAY 

SAY 

SAY 



t 

i 

i 

• 

$ 

• + 



a 


7,28 


SAY 


i 


J 


a 


7,48 


SAY 


MS: < 


CJUL 


a 


9,27 


SAY 


i 




a 


9,44 


SAY 


MS: i 


MONTH 


a 


10, 42 


SAY 


MS 


:OYR 


a 


11,25 


SAY 


'TOTAL i 


a 


11,40 


SAY 


MS 


: OCA S 


a 


13, 10 


SAY 

X f 


« 




a 


15, 1 5 


SAY 


MS 


:LBL 1 


a 


15,33 


SAY 


MS 


:OCL 1 


a 


15, 48 


SAY 


MS 


:001 


a 


17, 1 5 


SAY 


MS 


: LBL2 


a 


17,33 


SAY 


MS 


:OCL 2 


a 


17, 48 


SAY 


MS 


: 002 


a 


19, 1 5 


SAY 


MS 


: LBL 3 


a 


19, 33 


SAY 


MS 


: OCL 3 


a 


19,48 


SAY 


MS 


:003 


a 


21, 15 


SAY 


MS 


: LBL 4 


a 


21,33 


SAY 


MS 


: OCL 4 


a 


21, 48 


SAY 


MS 


:004 


a 


22, 15 


SAY 


MS 


: LBL 5 


a 


22,33 


SAY 


MS 


: OCL 5 


a 


22,48 


SAY 


MS 


:005 



CODE 9142 TECHNICAL BRANCH' 
QUALITY DEFICIENT MATERIAL' 
MONTHLY STATUS REPORT ' 
THRU* 

(MS : ED ATE , 1 , 2) + '/'+$ (MS: ED ATE, 3,2) 
$ (MS: ELATE, 5,2) 

(LIAN DATE ' 

MONTH OF' 



CASES' 



OPEN' 



CLOSED' 



***** DATA FOR THE SECOND YEAR OUTPUT 



2 


25, 


42 


SAY 


MS: 


PYR 




3 


21 , 


25 


SAY 


'TOTAL 


CASES ' 


3 


27, 


40 


SAY 


MS: 


PCA 


SE 


3 


29, 


1 0 


SAY 


t 












+ • 






OPEN' 


3 


31, 


1 5 


SAY 


MS : 


LBL 


1 


3 


51, 


33 


SAY 


MS: 


PCL 


1 


3 


31, 


48 


SAY 


MS: 


P01 




3 


53, 


15 


SAY 


MS: 


LBL 


2 


3 


33, 


33 


SAY 


MS: 


PCL 


2 


3 


33, 


4 8 


SAY 


MS: 


P02 




3 


35, 


1 5 


SAY 


MS: 


LBL 


3 


3 


55, 


33 


SAY 


MS: 


PCL 


3 


3 


35 , 


48 


SAY 


MS: 


P03 




3 


37, 


1 5 


SAY 


MS: 


LBL 


4 


3 


37, 


33 


SAY 


MS: 


PCL 


4 


3 


37, 


48 


SAY 


MS: 


P04 




3 


39 , 


1 5 


SAY 


MS: 


LBL 


5 


3 


29, 


33 


SAY 


ms: 


PCL 


5 


3 


39, 


48 


SAY 


MS: 


P05 





***** DATA FOR THE CURRENT YEAR OUTPUT 



CLOSED' ; 
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EJECT 



a 


42, 42 


SAY 


MS: 


CYR 


a 


44,25 


SAY 


'TOTAL C 


a 


44, 4 0 


SAY 


MS: 


CCA SE 


a 


46, 10 


SAY 
. 1 . ? 


> 




a 


48, 15 


SAY 


MS 


LBL 1 


a 


48,33 


SAY 


MS 


CCL 1 


a 


48, 48 


SAY 


MS 


COI 


a 


50, 15 


SAY 


MS 


LBL 2 


a 


50,33 


SAY 


MS 


CCL 2 


a 


50,48 


SAY 


MS 


CO 2 


a 


52, 15 


SAY 


MS 


LBL 3 


a 


52,33 


SAY 


MS 


CCL 3 


a 


52, 48 


SAY 


MS 


C03 


a 


54,15 


SAY 


MS 


LBL 4 


a 


54, 33 


SAY 


MS 


CCL 4 


a 


54,4 8 


SAY 


MS 


CO 4 


a 


56, 15 


SAY 


MS 


LBL 5 


a 


56,33 


SAY 


MS 


CCL 5 


a 


56, 48 


SAY 


MS 


C05 



• t n q 1 

. L c o j 



1 r E N 



SECOND PAGE OF REPORT 



a 

a 

a) 

a 



2.25 

4.25 

6.25 



SAY 

SAY 

SAY 

SAY 



CODE 9142 TECHNICAL BRANCH' 



a 


8,42 


SAY 


$ (MS 


: ED ATE, 1 








'/' + 


$ (MS 


: ED ATE ,5 


a 


10, 


25 


SAY 


'CASES RECE 


a 


10, 


44 


SAY 


MS: 


MONTH 


a 


10, 


62 


SAY 


MS: 


CYR ♦' : • 


a 


10, 


72 


SAY 


MS: 


CRCVD 


a 


12, 


10 


SAY 


i 










♦ » 




OPE 


a 


14, 


15 


SAY 


MS: 


LBL 1 


a 


14, 


33 


SAY 


MS: 


CCL 1 


a 


14, 


48 


SAY 


MS: 


COI 


a 


16, 


1 5 


SAY 


MS: 


LBL 2 


a 


16, 


33 


SAY 


MS: 


CCL 2 


a 


16, 


48 


SAY 


MS: 


C02 


a 


18, 


1 5 


SAY 


MS: 


L3L 3 


a 


18, 


33 


SAY 


MS: 


CCL 3 


a 


18, 


48 


SAY 


MS: 


CO 3 


a 


20, 


15 


SAY 


MS: 


LBL 4 


a 


20, 


33 


SAY 


MS: 


CCL 4 


a 


20, 


48 


SAY 


MS: 


C04 


a 


22, 


1 5 


SAY 


MS: 


LBL 5 


a 


22, 


33 


SAY 


MS: 


CCL 5 


a 


22, 


48 


SAY 


MS: 


CO 5 



Q HALIT Y 
COMMAND 
AS OF 

2) ♦ '/' ♦$ (MS: EDA TE, 3 , 2) +: 
2 



DEFICIENT MATERIAL 
KEY INDICATORS ' 

» 



IN’ 



CLOSED' 



EJECT 

***** THIRD PAGE OF REPORT 

a 2,25 SAY ' CODE 9142 TECHNICAL BRANCH' 

S 3,25 SAY ' QUALITY DEFICIENT MATERIAL' 

a 4,25 SAY ' MONTHLY STATUS REPORT ' 

a 5,25 SAY ' THRU' 

a ) 5,42 SAY $ (MS: ED ATE , 1 , 2) + ' /' + $ ( MS : EDAT E, 3 , 2) + ; 

'/' + $ (MS: ED ATE, 5, 2) 

S 7,28 SAY ' JULIAN DATE ' 

S 7,48 SAY MS: CJUL 

a) 9,27 SAY ' MONTH OF* 

S 9.44 SAY MStMONTH 

a 12,20 SAY 'TOTAL RECORDS ON OPEN FILE:' 
a 12,64 SAY MS: OPT OT - 1 

a 14,20 SAY 'TOTAL RECORDS ON CLOSED FILES:' 
a 14,65 SAY MS: CLT OT 



180 



a) 16,2 0 SAY ’RECORDS WITH INVALID DATES, 
♦' FILE: • 

a) 16,64 SAY MS: OPE F.R - 1 

a) 13,20 SAY ’ RECORDS WITH INVALID DATES, 

+ ’ FILE:’ 

a) 18,65 SAY MSiCLSBS 
3 72 , 35 SAY ’END OF REPORT’ 

set Alternate off 

SEI ALTERNATE TO 

EJECT 

SET FORMAT TO SCREEN 

RELEASE ALL IIKE MS:* 

ERASE 

RETURN 

***** £ NC or PROGRAM 



OPEN •; 



rir "'" 1 • 

w- J- 
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XVIII. SORTED LISTING REPORT MEN U 



******************* ** ****** ************ ****** *** *********** 

** DATE: 22 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: SUPEPT2 ** 

** MODULE PURPOSE: PROVIDE MENU OF SORTED LISTING ** 

** REPORTS FOR THE SUPERVISOR ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C :WHO , C:JULIAN ** 

** OUTPUTS: NONE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ** 

** DISPLAYS MENU FOR SUPERVISOR TO CHOOSE DESIRED ** 

** REPORT. CAUSES REINDEXING OF APPROPRIATE FILE ** 

** TC PRODUCE CURRENT VALUES FOR REPORT GENERATION ** 

** RESULTS ARE STORED ON D: DRIVE AS A 'TXT' FILE ** 

** FOR LATER ACCESS. REPORT MAY BE PRINTED BY USING ** 

** 'TYPE' FUNCTION OF OPERATING SYSTEM. ** 

** PROCESSING SHOULD BE ACCOMPLISHED DURING 'OFF' ** 

** TIME PERIOD. ** 

** S UPEROR DIN AT E MODULES: SUPMENU1 ** 

** SUBORDINATE MODULES: SUPRPT1 ,SUPRPT2 ,SUPRPT3 , SUPRPT4 ** 

** -AUTHOR: J.G. BOYNTON ** 

** ** 

*********************************************************** 

STORE T TO C:TRU E 
DO WHILE C : T RU E 
ERASE 
* 

STORE ' ' TC V: CHOICE 

TEXT 

***** SORTED LISTING REPORTS AVAILABLE ***** 



1 - OPEN FILE BY CASE AND ANALYST 

2 - OPEN FILE BY ITEM MGR AND ANALYST 

3 - OPEN FILE BY COG, SMIC, OPEN DATE 

4 - CLOSED FILE BY CREDIT CODE, CASE 

5 - EXIT 

ENDTEXT 

2 19,40 GET V: CHOICE 

READ 

* 

IF V : CHOICE >= ' 1 • .AND. V:CHOICE < '5' 

ERASE 

a 12,20 SAY • THESE REPORTS WILL TAKE SOME TIME TO' 

a 13,20 SAY ' GENERATE. IF YOU DECIDE TO CONTINUE' 

3 14,20 SAY ' THE TERMINAL MAY NOT BE USED FOR ANY' 

a 15,20 SAY ' OTHER PROCESSING UNTIL AFTER '; 

+ ' CO MPLETIO N ' 

a 23,15 SAY 'PRESS 1 - TO ABORT, ANY OTHER KEY TO'; 

+ ' CONTINUE' 

WAIT TO V: B AIL 
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IF 



1 • 

AIL LIKE 
C :T RUE 



V * B A I L = * 

RELEASE ALL LIKE V:* 

RELEASE 
RETURN 
ENDIF 
DO CASE 

CASE Y’CHCICE “ * 1* 

***** FILE D: SUPRPT 1 .TXT IS CREATED TO PROVIDE THE REPORT 
***** D: SUPEPT 1 . NDX IS INDEXED ON WHO+CASE 

RELEASE ALL LIKE V:* 

USE D : OPEN 1 INDEX D:SUPRPTl 

REINDEX 

GOTO TCP 

SKIP 

SET TAIK OFF 
STORE 0 TO P: COUNT- 
STORE 0 TO P: TOTAL 
SET FORMAT TO SCREEN 
ER AS E 

SET ALTERNATE TO D:SUPRPT1 
SET ALTERNATE ON 



•CATE: * , B AT E () 



QDR CEEN FILE EY ANALYST & 



QTY 



7 

■7 

+ ' 

+ • 

7 

7 

+ • 

+ • 

+ • 

« 

+ • 

+ • 

♦ • 

+ • 

+ • 

STORE 
STORE 5 
DO WHILE 



*4:*$ $ 

CASE 



i 

i . 

: # 5jc ! 



NSN / 



EXT 



COG 

UI 



CASE' ; 
SM FSC 



OPEN 



PART’ ; 
UNIT* ; 

D' * 

SCREENING* 



NATO FUN • ; 

CAT NOMEN 

PRICE 

PRICE Q ORG DF C 
CONTRACT NUMBER DATE 



UIC 

DEFNT 



CODE/DATE 



TO P: PAGE 
TO ROW 

.NOT. EOF 

P : T OTAL+ 1 TO P : TOT AL 
? • • , CASE , • • ,COG c • • 

,CAT, ’ • , $( NOMEN , 1 ,9) . ' 

‘ UP RC, ' * , QT YDEF, ' 



? 



,SM,* ' 

• r UIC 

I 



STORE 

NSN , * •; 
. . , . » i rj T • 

t v j.\~ , t U X, , 

, EPRC , * • ,09Q; 

. , 0 RG , ' • , DEF f * *,DOC,' * , NUM, • *,: 

I (DATES, 11,5) f ,SCR,’/’,$ (DATES ,21 ,5) 
STORE ROW+1 TO ROW 
SKIP 

STORE P: COUNT+1 TO P:COUNT 
IF ROW > 60 
ERASE 
? CHR (12) 

~ TO ROW 



STORE 

STORE 

7 

•7 

7 i 

-? 

•7 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

“7 



0 

P.-PAGE+1 TO P.-PAGE 



PAGE ' , P: P AGE 



NSN / PART 



QTY 



EXT 



UNIT 

9 



SCREENING* 

• CASE* 



OPEN 
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#3je if # if 
## # £ if 



+ 

f 

* 

«* 

+ 

+ 

+ 

9 

s 

ENDIF 



COG 

FSC 

SATO FI IN CAT 
QIC 

01 PRICE 

PRICE Q ORG 

CONTRACT NUMBER 
/DATS ' 

TORE ROW+4 TO ROW 
<P AGE IS FULL> 



S M ' ; 

NO MEN 

DEFNT 

DF 

DATE 



C 

CCD 



5 

1 

* » 

I • 
« 

i 

7 ? 



ENDDO 

7 

7 

7 

b 

? 1 

7 

• 

7 

7 

-f » 

+ ' 

7 



TOTAL CASES: ' ,P: TOTAL 



t 

END 



CF OPEN 
* * *####* 

CHR 
SET 
? CHR 
? CHR 
ERASE 

a 12,20 



FILE REPORT BY ANALYST & CASE 



( 12 ) 

ALlrENATE 



(?) 



CASE 



a ) 13, 
d 20, 
WA IT 
V: CHOICE 



20 

20 



SAY * 

♦ * 

SAY ' 
SAY * 

= * 2 ' 



TO 



YOU MAY RECEIVE YOUR COG,OPEN 
FILE REPORT ON* 

DsSUPRPT1.TXT ' 
PRESS ANY KEY TO CONTINUE 



FILE D: SUPRPT2 . TXT IS CREATED TO PROVIDE THE REPORT 
D: SUPBPT2. NDX IS INDEXED ON ACTPT+WHO 



LIKE V : * 

INDEX D : S UPRPT2 



TO 
ON 
' ,DATE () 



RELEASE ALL 
USE D : CPEN 1 
REINDEX 
GOTO TCP 
SKIP 

SET TALK OFF 
STORE 0 TO P: COUNT 

STORE 0 TO P: TOTAL 

SET FORMAT TO SCREEN 
ERASE 

SET ALTERNATE 
SET ALTERNATE 
? 'CATE: 

7 

7 » 

+ 

+ ' 

+ ' 

♦ ' 

7 
7 

♦ ' 

♦ » 

+ ' 

+ ' 

♦ ' 

+ • SCREENING* 

? * CASE*; 

+ ' COG 

♦ • CAT 

+ 'UI PRICE 

+' PRICE Q ORG 



D: SUPRPT2 



OPEN FILE 
ANALYST 



EY 



if if if :£ 9 



if if $$ if 

ITEM 



CD R* 
MANAGER S' 



NS N / PART' 



UN IT 
EXT 



QTY 



SM 



OPEN 



FSC NATO FI IN 
NOMEN UIC 

DEFNT 

DF C 
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CONTRACT NUMBER 



+ • 

■y 

STORE 0 TO P: 
STORE 5 -TO RO 
DO WHILE .NO 
STORE P: T 



DATE 



CODE/DA' 



ENDDO 

o 

9 

9 

~> 

? ' 

•? 

7> 

+ • 

+ ' 

•? 

SET 



PAGE 
H 

T. EOF 

OTAL+1 TO P: TOTAL 
* ,CASE ' ’ ,005,’ 

CAT,' *,$( NOMEN, 1,9) » 5 



- \1 * 



' ' 09Q,' ' ,ORG , ' ' ,DEF . ' ',DOC. 

UM, ' ' ,$ (DATES, 1 1 ,5) , ' *,SCR,‘/ f 



• « 

' ',UI,' ’ ' ,UPR<j, ' ' , QT YDEF , * 

EPRC , ‘ ‘ ‘ ‘ ‘ ‘ 

• • , N 

, $ (DA 
STORE 
SKIP 
STORE 
Ir RO 

E 
•? 



1 f? ?: 

/ y « 

* r 7 T r * 

* U X i t 



TES.2 1 ,5) 
ROW+1 TO ROW 



COUNT 



S 

S 

-? 

? 

9 

• 

9 

9 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

9 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

9 

s 

ENDIF 



P : COUNT* 1 TO P 
W > 60 
RASE 
CH R ( 1 2) 

TORE 0 TO ROW 

TORE P :P AGE+1 TO PrPAGE 



PAGE ' , P : P AGE 



i . 



NSN / PART ' ; 
TY 

EXT 



UNIT 

9 



Q 



i • 
i 

J 

• 

« 



OPEN 
CASE' ; 



SCREENING' 



FSC 

EN 

UI 



NATO FUN 
VIC 
PRICE 
PRICE Q ORG 
C CONTRACT NUMBER 
CODE/DATE ' 



COG 

CAT 



SM 

NOM 



DEFNT 

DF 

DATE 



TORE ROW+4 TO ROW 
<P AGE IS FULL> 



TOTAL CASES ,P ‘.TOTAL 



» ****** 
END CF OPEN 
ANALYST ** 
CHR 



****£#*****£*#*£***£****£££ 1 J 

FILE REPORT BY ITEM MANAGER 
****************** ***** ** ** *** ** 1 



ALTERNATE TO 



CASE 



? CHR (7) 

? CHR (7) 

ERASE 

d 12,20 

a) 13,20 
a) 20, 2 C 
WAIT 

V: CHOICE = '3 



SAY ' 

+ • 

SAY ' 
SAY • 



YOU MAY RECEIVE YOUR COG, OPEN'; 
FILE REPORT ON' 

DtSUPRPT2.TXT ' 
PRESS ANY KEY TO CONTINUE' 



***** FILE C:SUPRPT3 .TXT IS CREATED TO PROVIDE THE REPORT 
***** D : SUP RPT3 . NDX IS INDEXED ON COG+SM +$ (DATES , 1 1 , 5) +CASE 
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REIS AS I ALL LIKE V : * 

USE D.-CFEN1 INDEX D:SUPRPT3 

REINDEX 

GOTO TCP 

SKIP 

SET TALK OF? 

STORE 0 TO P: COUNT 
STORE 0 TO P: TOTAL 
SET FORMAT TO SCREEN 
ER AS E 

SET ALTERNATE TO D:SU?RPT3 
SET ALTERNATE ON 
? 'CATE: ' , C AT E () 



7 

«- • 



** ** * 



+ • COG, SKIC, OPEN DATE & CASE 



QDR OPEN FILE BY 



***** t 



7 

• 


i 






NS N / 


PART’ ; 




+ » 












i 


* 


+ • 












UNIT' 


♦ 


+ • 




QTY 


EXT 


9 




i 


♦ 


+ » 


D 


OPEN 


SCREENING' 










•7 

• 


i 


CAS E' ; 












+ • 






COG SM 


F SC 


NATO 


FI IN ' 




+ ' 


CAT 


NO MEN 


UIC 


UI 




PEIC' 


♦ 


+ ' E 




DEFNT 


PRICE 




Q 


ORG ' 


♦ 



DF C 
DATE ' 



+ • 

+ ' 

•7 

STORE 0 TO P: 
STORE 5 TO RO 
DO WHILE .NO 
STORE P: T 

•7 I 

' 

,UI,' 

1 'rO 

,NUM, 
$ (DAT 
STORE 
SKIP 
STORE 
IF RO 
S 

■7 

s 

s 

■7 

b 

♦ 

? 

? 

7 

+ 

+ 

+ 

+ 

+ 

7 

+ 

+ 

+ 

+ 

+ 

+ 

s 

ENDIF 



CONTRACT NUMBER 



DATE 



CODE/' 



PAGE 

W 

T. EOF 

OTAL+ 1 TO P : TOTAL 

•,CASE,' ',COG,' ',SM,' ' , N S N . ; 

AT, ' ' ,$ (NOMEN, 1 ,9) , • ',UIC,' 

' , UPRC, ' ' , QTYDEF, ' ',EPRC, ; 

9Q f ' ' ,0 RG , ' ' , DEF . ' ',DOC.' 

• ' t $(DATES,11,5) , ' ',SCR,V'r; 
ES, , 5) 

ROW+1 TO ROW 

P : COUNT* 1 TO PrCOUNT 
W > 60 
RASE 
CHR (12) 

TORE 0 TO ROW 

TORE P:PAGE+1 TO P:PAGE 



PAGE ',P:PAGE 



NS N / PART' ; 
QTY 



D 



UNIT 

EXT 



OPEN SCREENING' 

' CASE'; 

COG SM 

C NATO FI IN CAT NOMEN 

UIC UI PRICE 

DEFNT PRICE Q 

G DF C CONTRAC* 

T NUMBER DATE CODE/DATE ' 

TORE ROW +4 TO ROW 
<P AGE IS FULL> 



FS' 

i 

i 

OR' 
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TOTAL CASES:’ ,P:TOTAL 



£ W 

7 

7 

9 

9 

7 

9 

o 

9 

9 

+ * 
+ * 
+ * 

*? 

SE 

7 

7 

ER 

a) 

♦ • 

a) 

3 

WA 



DDO 



$ $ ;jc £ *£# 



t $ $ # j£ **c*c*c*********************** 

ND OF OPEN FILE REPORT BY COG ,SMIC , OPEN 
DATE 6 CASE 
***** » 

CHR (12) 

T ALTERNATE 
CKR (7) 

CHR (7) 

ASE 

12.20 SAY « 

FILE REPORT 

13.20 SAY * 

20. 20 SAY « 

IT 



TO 



YOU 
ON » 



MAY RECEIVE YOUR COG, OPEN 



PRESS 



DiSUPRPT3.TXT ' 
ANY KEY TO CONTINUE’ 



CASE V: CHOICE = *4* 



***** FILE DrSUPRPT4.TXT IS CREATED TO PROVIDE THE REPORT 
***** D: SUFBPT4 . NDX IS INDEXED ON CR+CASE 



RELEASE ALL L 
USE D : CLOSE1 
REINDEX 
GOTO TCP 
SKIP 

SET TALK OFF 
STCRE 0 TO P: 
STORE 0 TO P: 
SET FOFMAT TO 
ERASE 

SET ALTERNATE 
SET ALTERNATE 
? ’DATE: 

*? 



IKE V:* 

INDEX D: SUPRPT4 



COUNT 

TOTAL 

SCREEN 

TO D : SUPRPT4 
ON 

* , DATE () 



+ ’ CREDIT 
*? 



***** 

CODE Z CASE 



QDR CLOSED FILE EY 

3jC3{C # 30C 3$C • 



D 



QTY 
OPEN 
’ CAS 
CAT NO 
E DE 

DF C CON 
DATE « 



7 

+ * 

+ • 

+ * 

+ * 

7 

+ * 

+ ' 

+ * 

+ * 

7 

STORE C TO P: 
STCRE 5 TO RO 
DO WHILE .NO 
STCRE P:T 

9 » 

; f ,C 
,UI,« 
( f ,0 

, NUM , 
$ (DAT 
STORE 
SKIP 



NSN / PART' ; 

UNIT' ; 

PYT Q * • 

SCREENING' 

ECOG SM FSC NATO FUN •: 

MEN UIC UI P RI C ' ; 

FNT PRICE Q CRG 

TRACT NUMBER DATE CODE/’; 
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CASE 



ERASE 

ENDCASE 



STORE P: COUNT+1 TO P:COUNT 
IF ROW > 60 
ERASE 
? CHS (12) 

STORE 0 TO ROW 

STORE P : P AG E+ 1 TO PiPAGE 

9 

♦ 

9 

? 1 PAGE 1 r P: P AGE 



9 

+ 

+ 

+ 

+ 

+ 

+ 

9 

+ 

+ 

+ 

9 



• t . 

NSN / PART' ; 

I • 

UNIT ' ; 

QTY EXT 9 » ; 

D 5 ; 

OPEN SCREENING' 

• CASE COG SM FS'; 

C NATO FI IN CAT NOMEN • ; 

UIC UI PRICE •; 

DEFNT PRICE C OR'; 

G DF C CONTRAC' ; 

T NUMBER DATE CODE/DATE ' 



STORE ROW +4 TO ROW 
EN DIF <P AGE IS FULL> 



ENDDO 

9 

♦ 

9 

9 

9 

? 1 TOTAL CASES : 1 , P : TOTAL 

9 

9 

9 I $ $ * % # # ajc # :$c $ £ # # # # ^ 3{< :£ £ s}c :$c 5$: £ # # 3$c # sjc # • • 

♦ ' END CF CLOSED FILE REPORT BY CREDIT CODE*: 

+ ' & CASE **********************3 =***********• 
? CHR ( 12) 

SET ALTERNATE TO 
? CHR (7) 

? CHR (7) 

ER AS E 

5) 12 r 2 0 SAY ' YOU MAY RECEIVE YCUR REPORT BY'; 

+• CREDIT CODE & CASE ON' 
a) 13 , 2 C SAY ' D : SUPRPT4 . TXT ' 

a) 20, 2C SAY • PRESS ANY KEY TO CONTINUE' 

WAIT 

V ; CHCIC E = '5' 

RELEASE ALL LIKE V;* 

RELEASE C.-TRUE 
RETURN 



FT Q F 

"if V ; CHOICE^ ' 5 ' 

RELEASE ALL LIKE V: * 
RELEASE C: T R UE 
RETURN 

ELSE 



9 I 

9 

9 I 

9 

WAIT 

ENDIF 

ENDIF < V : CH CICE > 
ENDDO <C:TRUE> 



PLEASE ANSWER WITH A 1 - 5 ONLY' 
PRESS ANY KEY TO CONTINUE' 
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RELEASE ALL LIKE V:* 
RELEASE C: TRUE 
FETUS 8 

***** hMl OF PROGRAM 
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XIX. CASE REALIGNMENT MODULE 



** #* 

** DATE: 22 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: C-REASGN ** 

** MODULE PURPOSE: REASSIGN CASE FROM ONE ANALYST TC ** 

** ANOTHER ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C : W HO , C:JULIAN ** 

** OUTPUTS: ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** RECEIVES THE CASE NUMBER AND TWO ANALYSTS TO EE ** 

** INVOLVED IN THE TRANSFER. BEFORE TRANSFERING CASE ** 

** THE DATABASE IS CHECKED TO INSURE UPDATE OF ** 

** ANALYST STATISTICS. RETURNS FOR ANOTHER CASE TO ** 

** BE ASSIGNED OB FOR TERMINATION OF PROGRAM. ** 

## 

** SUPEFORCINATE MODULES: UTILMENU ** 

** SUBORDINATE MODULES: XDBHNDLR ** 

** AUTHCR : J.G. BOYNTON ** 

** ** 

jJ; ^ ?jC sjc 5jc -?* 3$C 3$C 3$C 3$C jjj^S 

STORE T TO R: CO N TI N UE 
DO WHILE R: CONTINUE 
ERASE 

3 6,24 SAY ****** CASE R E- ASS IGN MElIT PROCESSING ****** 

5) 9. 28 SAY '1 - RE-ASSIGN CASE TO ANOTHER ANALYST* 

5) 10,28 SAY '2 - RETURN TO UTILITY MENU* 

STORE • ' TO R: REPLY 

3 15,40 GET R :RE PLY 
READ 

DC WHILE R: REPLY < '1* .OR. R : REPLY > *2* 

3) 23,52 SAY ' E.NTER 1 - 2 ONLY* ♦ CHR (7) 

S 15,40 GET R: REPLY 
READ 
ENDDO 
DO CASE 

CASE R: REPLY = '2' 

RELEASE ALL LIKE R :* 

RETURN 

CASE R.-REPLY = • 1 • 

STCRE ' ' TO R : CAS E 

ERASE 

S 6,24 SAY 'ENTER DATA FOR CASE BEING RE-ASSIGNED' 
a 9,32 SAY 'CASE NUMBER ' GET R:CASE ; 

PICTURE ' 999999X' 

READ 

STCRE ’ (R: CASE) TO R:CASE 
STCRE R :C AS E TO M: KEY 
STCRE ' IE' TC M :TY PE 
DO XDBHNDLR. PEG 
IF M: T Y PE ='1* 

a 20,20 SAY 'CASE IS CURRENTLY LOCKED' + CHR(7) 
a 22,20 SAY ' PRESS ANY KEY TO CONTINUE' 

WAIT 
EN DIF 

IF M:TYPE<> '1* 

IF M.-TYPE = ' 9 ' 

a 22,14 SAY 'CASE DOES NOT EXIST IN OPEN'; 
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* 



ELS 



ENDIF 



+ ' FIL E - STRIKE ANY KEY TO CONTINUE’; 
+ CHB (7) 

WAIT 

E 

STORE ' ' TO RrNEW 

STORE ' ’ TC R: REPLY 

DO WHILE R: REPLY 

a) 11,10 SAY ’CASE NUMBER ' + M:CASE 
a) 11,32 SAY »NSN ’ + $ (M; NSN , 1 , 4 ) + ' - ' ; 

+$(M:NSN,5,2) + '- ' + $(M:NSN,7,3) ; 
+•-•+$ (M ; NSN , 10,4) 
a) 11,55 SAY 'COG ' + M;COG 

5) 11,62 SAY 'CAT ' + M : CAT 
a) 14,10 SAY 'CURRENTLY ASSIGNED TO ' ; 

+ M : W H 0 

5) 15,10 SAY 'RE- ASSIGN TO '; 

GET R ; NE W 

READ 

STORE ' ' TO R.-REPLY 

DC WHILE R : REPLY < ' 1 * .OR. R : REPLY >'3' 
o> 21,20 SAY '1 - RE-ASSIGN '; 

+' 2 - CHANGE 3 - EXIT' 
a) 23,20 SAY ' ' ; 

GET R: REPLY 



READ 

ENDDO 

IE R ; REPLY =' 3' 

STORE ' 1G ' TO M; T YP E 
DO X DBHNDLR. PRG 
RELEASE ALL EXCEPT Cl* 

RETU RN 
ENDIF 

IF $ (M;D ATES, 46, 1) =' *' 

DO STATISTICS UPDATE PROGRAM 

ENDIF 

IF R ; REP L Y= ' 1 ' 



ERAS 
a) 10 



E 

,20 



5) 

d 

a) 

a) 

d 



12 

13 

15 

16 
22 



,20 

,20 

,20 

,20 

,18 



SAY ****** PLEASE 
•♦■'STANDBY ****** 



SAY 

SAY 

SAY 

SAY 

SAY 



USE 
STOR 
STOR 
DO X 
STOR 
RELE 
STOR 
STOR 
DO X 
STOR 
STOR 
DO X 
RELE 
ERAS 
STOR 
ENDIF 

END DC <R ; RE 



CASE NUMBER ' + M:CASE 
IS BEING RE-ASSIGNED ' 

' + M : WHO 
' + R : NEW 

DC NOT ' ; 

5je 5js 3}c # # I 

OCASE1 , D: ONSN 



FROM 
TO 

** * * * 

+' INTERRUPT 
D: OPEN 1 INDEX D 
E R:NEW TO M : WHO 
E '1C TO M: TYPE 
DBHNDLR. PRG 
E MrCASE TO R:CASE 
ASE ALL LIKE M : * 

E R :C ASE TO M ; KEY 
E ' 2E' TO M: TYPE 
DBHNDLR. PRG 
E ' 2C ' TO M.’TYPE 
E R ; NE W TO M:WHO 
DBHNDLR. PRG 
ASE ALL LIKE M:* 

E 

E F TO R .'REPLY 
PLY > 



■p *j r r a 9 f 

ENDDC <CC NT INU E> 



£ NE OF PROGRAM 
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XX. ITEM MANAGER FILE UPDATE 



: *********** *** * * ** * * * * **** ******************* *** * **v***** ** 

jjj^j n*5?5 

** DATE: 12 JAN 84 ** 

** VERSICN: 1.0 ** 

** MODULE NAME: ADDSCPDT ** 

** MODULE PURPOSE: ADD, UPDATE, OR DELETE ITEM MANAGER ** 

** ADDRESS RECORDS ** 

** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: NONE ** 

** OUTPUTS: NONE ** 

** ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** $* 

** ALLOWS THE ADDITION, DELETION, OR UPDATING ** 

** OF ITEM MANAGER ADDRESS RECORDS. ACCEPTS THE ** 

** ITEM MANAGER CODE, VALIDATES THE EXISTENCE OF ** 

** AN IM WHEN CREATING NEW RECORDS, ALLOWS THE ** 

** RECALL OF PREVIOUSLY DELETED RECORDS DURING ** 

** UPDATE, AND VERIFIES THAT NO ACTIVE COGS ** 

** ARE ASSIGNED TO A RECORD BEING DELETED. ** 

5*C 3$C 

** SUPERORDINATE MODULES: UTIL-MENU ** 

** SUEORDINATE MODULES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 

** 

******************** ****** * *** ***** ************************ 

STORE T TO A:CONTINUE 
DO WHILE A: CONTINUE 

***** DISPLAY SELECTION OPTIONS AND ACCEPT CHOICE 
ER AS E 

a 6,18 SAY ****** ITEM MANAGER ADDRESS PROCESSING ****** 
a 9,28 SAY '1 - ADD ADDRESS' 

3 10,28 SAY '2 - UPDATE ADDRESS' 

a 11,28 SAY '3 - DELETE ADDRESS' 

a 12,28 SAY '4 - RETURN TO UTILITY MENU' 

STORE ' ' TO A.-REPLY 

a -15,40 GET A :RE PLY PICTURE '9' 

READ 

***** VALIDATE RESPONSE 

DO WHILE A: REPLY < '1' .OR. A : REPL Y > '4' 
a 23,32 SAY 'ENTER 1 - 4 ONLY' + CHR (7) 
a 15,40 GET A : REPLY PICTURE '9' 

READ 
ENDDO 
DC CASE 

***** IF CHOICE IS QUIT, RELEASE ALL LOCAL MEMORY VARIABLES 
***** AND RETURN TO CALLING PROGRAM 

CASE A : R E P LY = '4' 

RELEASE ALL LIKE A:* 

RETURN 

***** IF CHOICE IS ADD, PROMPT FOR ITEM MANAGER BEING ADDED 
CASE A.-REPLY = '1' 
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***** 



*** * * 



*** * * 



*** * * 



! ( A : T 
! (A : 
CITY 



**** * 



• TO A : IM 



'ENTER DATA FOR 
•ITEM MANAGER ' 



STORE • 

ERASE 

2 6,20 SAY 
a> 9.3 2 SAY 
READ 

STORE ! (A ill 1 !) TO A:IM 

SELECT PRIMARY 

USE D: ADDRESS INDEX D:IH 

CHECK FOR EXISTING IM RECORD 



ITEM MANGER 
GET A: IM 



o t v r. 

U 4-J — t.y O 



A DD ED ’ 



FIND & A : I M 
IF # <> 0 
5 22 ,14 

+ 

WAIT 

ELSE 

STORE 
STORE 

+ 

STORE 

+ 

STORE 
STORE 
STORE 
STORE 
STORE 



SAY 'RECORD 
•STRIKE ANY 



CURRENTLY EXISTS 
KEY TO CONTINUE' 



_ j . 

+ CHE (7) 



TO 

TO 



• TO A: 
A : COMMAND 



TITLE 



i . 

t 



TO 

i 



A : STATE 
TC A :ZIP 



A : COMM AN D2 
• TO A : ATTN 

• TO A: STREET 

• TO A :CIT Y 



PFOMPT FOR AND ACCEPT NEW IM DATA 



3 

3 

3 

3 

3 

a) 

a) 

a) 



14.16 
15 ,1 6 

16.16 

17.16 

18.16 
19 ,1 6 
19,44 
19 ,5 6 



SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 



READ 



TITLE ' GET 

COMMAND • GET 

COMMAND 2 ' GET 

ATTN • GET 

STREET • GET 

CITY • GET A : CITY 
STATE • GET ArSTATE 
ZIP CODE ' GET A: ZIP 
PICTURE '99999' 



A : TITLE 
A: CO MM AN D 
A : COMMAN D2 
A: ATTN 
A: STREET 



•9' 

A : REPL Y3 > 



• 2 ' 



VERIFY POST OR EXIT 

3 21,20 SAY '1 - POST NEW RECORD 

+ ' 2 - EXIT' 

STORE • • TO A: REPIY3 

3 23,40 GET A: R EPL Y3 PICTURE 
READ 

DO WHILE A: REPL Y 3 < '1' .OR. 

3 23,40 GET A :REPLY3 
R EAD 
ENDDC 

CREATE NEW IM RECORD 

IF A :REP IY3 = • 1 • 

APPEND BLANK 

REPLACE IM WITH ! ( A: IM) , T ITLE WITH ; 

ITLE) , COMM AND WITH ! (A : CO MM AND ) , COMMA ND2 WITH; 

CCMMAND2) ,ATTN WITH !( A : ATT N) , STREET WITH ! ( A : STREET) , ; 
RITE ! (A: CITY) , STATE WITH ! ( A; ST AT S) , ZIP WITH A:ZIP 
ENDIF 
ENDIF 



IE CHOICE IS UPDATE 

CASE A: REPLY = '2' 

STORE ' ' TO A ; IM 
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***** 



*** * * 



*** * * 



*** * * 



REQUEST FOR AND ACCEPT III TO BE UPDATED 
ER ASS 

a 6,19 SAY 'ENTER DATA FOR ITEM MANGER BEING 
+ 'UPDATED' 

a) 9,3 2 SAY 'ITEM MANAGER ' GET A: III 
READ 

STORE ! (A : IM) TO A:IM 
SELECT PRIMARY 

RETREIVE IM RECORD BEING UPDATED 

USE D: ADDRESS INDEX D:IM 
FIND S A :IM 
IF # <> 0 

a) 22,17 SAY ’RECORD NOT FOUND •; 

+ •- STRIKE ANY KEY TO CONT INU E ' +C HR (7) 

WAIT 

ELSE 

STORE T TC A :PROCESS 

IF RECORD DELETED, PROMPT FOR REACTIVATION OPTION 
XF ^ 

STORE ' ' TO A: REPLY 2 

a) 18,22 SAY 'RECORD HAS BEEN MARKED FOR •; 
+ 'DELETION' 

a) 19,17 SAY 'DO YOU WANT THIS RECORD '; 

+ 'REACTIVATED <Y OR N> ' 
a) 21,40 GET A :REPLY2 PICTURE 'A' 

READ 

DC WHILE A: REPLY20' Y' .AND. A : REP L Y2<> ' N' 
a) 23,31 SAY 'ENTER Y OR N ONLY' +CHR(7) 
a) 21,40 GET A : REPLY2 PICTURE 'A' 

READ 

ENDDO 

IF REACTIVATION REQUESTED 

IF ! ( A :REPLY 2) = ' Y' 

a) 18,22 S AY ' 

+ • • 
a) 19,17 S AY ' 

+ • • 
a> 21,40 S AY • • 

RECALL 

ELSE 

STORE F TC ArPROCESS 
ENDIF 
ENDIF 

PROMPT FOR AND ACCEPT UPDATE INFORMATION 

DO WHILE A : PROC ESS 

STORE TITLE TO A : TITLE 
STORE COMMAND TO A : COMMAND 
STORE CCMMAND2 TO A: COMM AND2 
STORE ATTN TO A : ATTN 
STORE STREET TC A : STREET 
STORE CITY TO A:CITY 
STORE STATE TO A : STATE 
STORE ZIP TO A: ZIP 



a) 


14, 


16 


SAY 


'TITLE • 


GET 


TITLE 


a) 


15, 


16 


SAY 


•COMMAND ' 


GST 


COMMAND 


5) 


16, 


16 


SAY 


' COMM AND2 ' 


GET 


COMMAND2 


a) 


17, 


16 


SAY 


' ATTN ' 


GET 


ATTN 


a) 


18, 


16 


SAY 


'STREET ' 


GET 


STREET 


a) 


19, 


16 


SAY 


'CITY ' GET 


CITY 




a) 


19, 


44 


SAY 


' STATE ' GE 


T STA 


TE 


a) 


19, 


56 


SAY 


'ZIP CODE ' 


GET ZIP ; 
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PICTURE ' 99999 * 



E F AD 

a "2 1,20 SAY ' 1 - POST UPDATED RECORD *; 

+ * 2 - EXIT* 

STORE • ' TO A : REPLY 3 
a 23 f U0 GET A:RE?LY3 PICTURE '9* 

***** PROVIDE UPDAT I/EXIT CFTION 

R EAD 

DO WHILE A: R EFL Y3 < '1* .OR. A :REP LY3 > '2' 
a) 23 f 40 GET A: REPLY3 
READ 
ENDDO 

***** XF UPDATE 

IF A : REPLY3 <> * 1 * 

REIIACE IM WITH ! (A:IM) , TITLE WITH ; 

! (A:TITLF) , COMM AND WITH ! (A :CO MMANDf, COMMAND2 WITH ; 

! (A : CCMMAND2) , ATTN WITH ! ( A : ATTN) , STR EET WITH ! (A : STREET) , ; 
CITY WITH ! (A: CITY), ZIP WITH A:ZIP 

ENDIF 

STORE F TO A iPRCCESS 
ENDDO 
ENCIF 

***** ip CHOICE IS DELETE 

CASE A:REP LY = ’3' 

STORE ' ' TO A: IM 

***** PROMPT FOR AND ACCEPT IM BEING DELETED 

ER ASE 

a" 6,19 SAY 'ENTER DATA FOR ITEM MANGER BEING 
♦ 'DELETED' 

3 9,32 SAY 'ITEM MANAGER ' GET A:IM 
READ 

ST CHE ! (A : I K) TO A :IH 

SELECT PRIMARY 

USE D : A DD RE SS INDEX D:IM 

***** RETRIEVE RECORD BEING DELETED 

FIND & A :I M 
IF # <> 0 

S 22,17 SAY 'RECORD NOT FOUND •; 

+ '- STRIKE ANY KEY TO CONTINUE • +CHR (7) 

WAIT 

ELSE 

***** XI ACTIVE COGS ARE ASSIGNED, DO NOT ALLOW DELETE 



IF COUNT 

an. 


> 

16 


0 

SAY 


'TITLE ' + 


TITLE 


a) 


12, 


16 


SAY 


'COMMAND ' ♦ 


COMMAND 


a 


13, 


16 


SAY 


' COMMAND 2 ' + 


COMMAND 2 


a 


14, 


16 


SAY 


'ATTN ' ♦ 


ATTN 


a 


15, 


16 


SAY 


'STREET ' ♦ 


STREET 


a 


16, 


16 


SAY 


'CITY ' +CITY- ' 


STATE ' +STATE+: 


a 


18, 


20 


SAY 


' '+' ZIP CODE ' ♦ ZIP 

'ACTIVE COGS EXIST FOR THIS * ; 


a 


19, 


15 


♦ 

SAY 


'ITEM MANAGER' 

'ALL ACTIVE COGS MUST BE '; 


a 


20, 


21 


+ 

SAY 


'REASSIGNED TO 
'BEFORE DELETE 


ANOTHER I. M. ' 
ACTION CAN BE'; 


a 


22, 


27 


+ 

SAY 


' COMPLETED' 
'STRIKE ANY KEY 


TO CONTINUE' ; 
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+ CHR (7 } 



WAIT 

2L5E 



ajc sj: 



PREVIOUSLY DELETED, NOTIFY OPERATOR 



* 

a 



+ f - 

WAIT 
ELSE 



22,13 SAY ‘RECORD PREVIOUSLY DELETED ' 



STRIKE ANY KEY TO CONTIN UE» +CHR (7) 



a 

a 

a 

a 

a 

a 

a 



11.16 SAY 

12.16 SAY 

13.16 SAY 
14, 16 S AY 

15.16 S AY 
16, 16 SAY 



•TITLE ‘ + 

•COMMAND • + 

•COMMAND 2 • + 

•ATTN • + 

•STREET • + 

•CITY '+CITY-' 
•♦'ZIP CODE 



IS, 20 SAY '1 - DELETE THIS 
+ ' 2 ~ EX IT ' 

STORE ' ' TO A : REPL Y2 

a 21,40 GET A ; REPLY 2 PICTURE 



HpT rp t t? 

COMM AND 
COMM AND 2 
ATTN 
STREET 

STATE ' + ST ATE; 
• + ZIP 



ITEM MANAGER 



***** ACCEPT DELETE/EXIT OPTION 



READ 

DO WHILE A : REPLY2 < '1' 
3 23,40 GET A: REPL Y2 
BEAD 
ENDEO 



.OR. A: REPLY2 > ' 2 ' 



***** U DELETE REQUESTED 

IF A : REPL Y2 
DELETE 
ENEIF 
ENDIF 
ENDIF 
ENEIF 
ENDCASE 
USE 
ENDDC 



= • 1 



***** £ N E OF PROGRAM 
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XXI. COG FILE UPDATE MODULE 



*************************** ******************************** 
^c 3^c j£:£ 

** DATE: 18 JAN 1 984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: COGUEDT ** 

** MCDUIE PURPOSE: ALLOWS ADDITION, DELETION, OR ** 

** UPDATING OF COG FILE ** 

** ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: NONE ** 

** OUTPUTS: NONE ** 

3$c# 3$r# 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** #* 

** ACCEPTS NEW COG DATA, VERIFIES THAT THE NEW ** 

** CCG IS NOT A DUPLICATE, AND VERIFIES THE ** 

** EXISTENCE CF AN ITEM MANAGER RECORD. ACCEFTS ** 

** UPDATE INFORMATION ON COG-ITEM MANAGER ASSIGN- ** 

** MENTS, VALIDATES THE EXISTENCE OF AN ITEM ** 

** MANAGER RECORD, AND UPDATES THE COG FILE. ** 

** PREVIOUSLY DELETED COGS MAY BE REACTIVATED ** 

** WITH THE UPDATE OPTION. ACCEPTS THE COG TO ** 

** EE DELETED, VERIFIES THE RECORDS EXISTENCE, ** 

** AND VERIFIES THAT NO ACTIVE CASES EXIST FOR ** 

** THIS COG. ** 

** SUPERORDINATE MODULES: UTILMENU ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 

** *# 
******************* ******* ******************* *** * * *4 t ***** ** 

* COGUPDT.PRG 

* LAST UPDATE 18 JAN 64 

* 

STORE T TO G:CONTINUE 
DO WHILE G : CONT I NU E 

***** display options and accept choice 

ERASE 

a) 6,24 SAY ' ***** COG FILE PROCESSING ****** 
a 9,28 SAY *1 - ADD COG* 
a 10,28 SAY *2 - UPDATE COG* 

a 11,28 SAY '3 - DELETE COG* 

a 12,28 SAY *4 - RETURN TO UTILITY MENU' 

STORE ' ' TO G: REPLY 

3 15,40 GET G:REPLY 

READ 

DO WHILE G: REPLY < *1* .OR. G : REPLY > '4* 
a 23,32 SAY 'ENTER 1 - 4 ONLY' + CHR (7) 
a 15, 40 GET G: REPLY 
READ 
ENDDO 
DO CASE 

***** ir CHOICE IS TC QUIT, RELEASE LOCAL MEMORY VARIAELES 
***** AND RETURN TO CALLING PROGRAM 

CASE G: REP LY = *4* 

RELEASE ALL LIKE G :* 
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EETURN 












*** * * 



*** * # 
*** * * 
?$C 3$C 3$C 3$C 3$C 



I? CHOICE IS TC ADD, PROMPT FOR AND ACCEPT INPUT 



CASE G: REP LY = ' 1 ' 

STCRE ’ « TO G:IM 

STORE ' ' TC G:COG 

ER ASE 

3 6,24 SAY 'ENTER DATA FOR 
3 9,32 SAY 'COG ' 

READ 

STCRE ! (G : C CG) TO G:COG 
SELECT PRIMARY 

CHECK FOR DUPLICATE RECORD 

USE D : C OG INCEX D: COGS 
FIND SG:COG 
IF # <> 0 

3 22,14 SAY 'RECORE CUR 
+ ' - STRIKE ANY KE 

WAIT 

ELSE 

STORE T TC G:GETIM 
DO WHILE G:GETIM 



COG BEING ADDED' 

GET G: COG PICTURE ' 9A • 



RENTLY EXISTS ' ; 

Y TO CONTINUE' + CHR (7) 



PROMPT FOR AND ACCEPT ITEM MANAGER 

NAGER ' GET G:IM 
D: IM 

:m 

CHECK TO SEE IE IM RECORD EXISTS 



5 ) 10,32 SAY 'ITEM MA 
SELECT SECONDARY 
USE D : ADDRES S INDEX 
READ 

STORE ! (G:IM) TC G:Ii 



FIND SG:IM 
IF # <> 0 

STCRE F TC G:GETIM 
SELECT PRIMARY 
APPEND BLANK 

REPLACE COG WITH G:COG, IM WITH G:IM 
ELSE 



IF ITEM MANAGER NOT ON FILE 
CORRECT IM CODE, ADD THE IM 
UPDATE 



PROVIDE OPTION TO 
RECORD OR EXIT WITHOUT 



3 16,27 SAY 'ITEM MANAGER NOT ON FILE' 

3 18,30 SAY '1 - CHANGE I.M. CODE' 

3 19,30 SAY '2 - ADD ITEM MANAGER' 

3 20,30 SAY *3 - EXIT' + CHR(7) 

STCRE ' • TO G: REPLY2 

3 23,40 GET G: REPLY 2 PICTURE '9' 

RE AD 

DO WHILE G: REPLY2<* 1 ' .OR. G:REPLY2>'3' 
2 23,40 GET G: REPLY2 
READ 
ENEEO 
DO CASE 

CASE G : REPLY2 = ' 1 ' 

3 16,27 SAY ' ' 

♦ ' ' 

3 1 8,30 SAY ' 

3 19,30 SAY ' 

3 2 0,30 SAY ' ' 

3 23,40 SAY • ' 

CASE G : REPLY2 = '2 ' 

STORE F TO G.-GETIM 
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STORE • 

TO G: TITLE 

STORE 

+ 

STORE 



STO RE 

+ 

STORE 
STO RE 

STORE 

STORE 
STO RE 



GiTITLE 



TO G: STREET 

TO G: CITY 

' TO G: STATE 



TO G: COMMAND 
1 TC; 



TO G:COa HANDS 
• TO G : ATTN 



' TO G:ZIP 



*** * $ 



a) 


1 6,27 


SAY • 

X | f 




1 . 
♦ 


a) 


1 8,30 


T 

SAY ' 




1 


a) 


1 9,30 


SAY ' 




1 


a) 


2 0,30 


SAY • 


i 




a) 


23,40 


SAY ' ' 






a) 


14,16 


SAY 'TITLE 


' GET 


G : II TLE 


a) 


15,16 


SAY 'COMMAND 


' GET 


• 

9 






G; COMMAND 






a) 


16,16 


SAY 'COMMAND 


2 ' GET 


• 

9 






G: COMMAND2 






a) 


17,16 


SAY 'ATTN 


' GET 


• 

9 






G: ATTN 






a) 


18,16 


SAY 'STREET 


• GET 


• 

9 






G: STREET 






a) 


1 9,16 


SAY 'CITY ' GET G:CITY 


a) 


1 9,44 


SAY ' STATE ' 


GET G: 


STATE 


a) 


1 9,56 


SAY 'ZIP CODE 


' GET 


G: ZIP ; 






PICTURE '99999' 




REA D 








I AT A 


AND PROMPT FOR CREATE/EXIT 


OPTION 


a) 


2 1,20 


SAY ' 1 - POST 


NEW RECORD' ; 




♦ • 


2 


- EXIT' 




STORE ' 


• TO G ; REPLY3 






a) 


23,40 


GET G:REPLY3 


PICTURE 


' 9 ' 



READ 

DO WHILE G: REPLY3 < '1' .OR.; 

G : REPLY 3 > '2' 
a) 23,40 GET G : R EPL Y3 
READ 
END DO 



***** CREATE A NEW 



RECORD 

IF 



G : R EPLY3 = ' 1 * 

SELECT PRIMARY 
APPEND BLANK 

REPLACE COG WITH G:COG,; 

IM WITH G: IM 
SELECT SECONDARY 
APPEND BLANK 

REPLACE IM WITH ! (G:I M) . TIT IE; 
WITH ! (G:TITLE) , COMMAND WITH ! (G : COM MAND) , C0MMAND2 WITH; 

! (G:CCMMAND2) , ATTN WITH ! fG: ATTN) , STREET WITH ! (G : S TREET ) , ; 
CITY WITH ! (G; Cl TY) , ZIP WITH G: ZIP 

ELS E 

STORE F TO GrGETIM 
END IF 



***** E Xii WITHOUT CREATING RECORD 

CASE G ; REPLY 2 = '3' 
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zx* * # 









3^5jC3|t * Jjt 



*:£jf: jjt $ 



STORE F TO G : GETIM 
ENDCASE 
ENDIF 
END DO 
ENDIF 

IF CHOICE IS TC UPDATE 

CASE G: R EP LY = '2* 

STORE ' ' TO G: IM 

STORE ' * TC G:COG 

PRO KPT FOR AND ACCEPT COG BEING UPDATED 
ERASE 

a) 6,24 SAY ‘ENTER DATA FOR COG BEING UPDATED ’ 
a) 9,32 SAY 'COG * GET G:COG PICTURE * 9A ' 

READ 

STORE !(G:CCG) TO G:COG 
SEIECT PRIMARY 

RETREIVE RECORD TO BE UPDATED 

USE D: COG INDEX D: COGS 
FIND & G :COG 
IF # = 0 

a) 22,17 SAY ‘RECORD NOT FOUND '; 

+ ' - STRIKE ANY KEY TO CONTINUE* ♦ CHR(7) 

WAIT 

ELSE 

STORE T TC G :PR OCESS 

IF RECORD DELETED PROMPT FOR REACTIVATION 
IF * 

STORE * ' TO G : REPLY 3 

a) 18,22 SAY 'RECORD HAS BEEN MARKED FOR'; 

+ ' DELETION ' 

a) 19,19 SAY 'DO YOU WANT THIS COG '; 

♦ 'REACTIVATED <Y OR N> ' 
a) 21,40 GET G : REPLY3 PICTURE 'A' 

READ 

DC WHILE !(G:REPLY3) <> 'Y' .AND. !(G:REFLY3) O • N' 
a) 23,31 SAY 'ENTER Y OR N ONLY' + CHR (7) 
a) 21,40 GET G : R EP L Y 3 PICTURE 'A' 

READ 

ENDDO 

REACTIVATE RECCRD IF REQUESTED 
IF ! (GiREPLY 3) = ' Y' 

a> 18,22 SAY ' '; 

+ * « 

a) 19,19 SAY ' ' ; 

♦ * » 
a) 2 1,40 S AY ' ' 

RECALL 

ELSE 

STCRE F TC GlPROCESS 
ENDIF 
ENDIF 

DO WHILE G ;PROC ESS 
STORE IM TO G: IM 

PEC MPT FOR AND ACCEPT UPDATE INFORMATION 

a> 10,22 SAY 'ITEM MANAGER ' GET IM 
READ 

a> 21,20 SAY '1 - POST UPDATE INFORMATION'; 
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EXIT* 



+ • 2 - 

STORE ' ' TO G : REPLY 3 

3 23,40 GET G : REPL Y3 PICTURE ’3’ 

***** ACCEPT UP DATE /EX IT SELECTION 

R EAD 

DC WHILE G: R EPLY3 < *1* .OR. G:REPLY3 > '2' 

3) 23,40 GET G: REPLY3 
READ 
ENDDO 

***** IF EXIT WITHOUT UPDATE, RESTORE RECORD TO ORIGINAL 
***** VALUE 

IF G : EEPLY3 <> • 1 • 

REPLACE IM WITH G:IM 
END IF 
USE 

STORE F TO G :?ROCESS 
ENDDO 
ENCIF 

***** jF CHOICE IS TC DELETE 

CASE G: RE PLY = *3' 

STORE ' • TO G: IM 

STCRE ' ' TC G:COG 

***** PROMPT FOR AND ACCEPT COG BEING DELETED 
ERASE 

3 6,28 SAY 'ENTER COG BEING DELETED' 

3 9,32 SAY 'COG ' GET G:COG PICTURE ' 9A ' 

•READ 

STCRE ! (G:CCG) TO G:COG 

SELECT PRIMARY 

USE D : CCG INEEX D: COGS 

***** VERIFY COGS EXISTENCE 

FIND SG.-COG 
IF # = 0 

3 22,17 SAY 'RECORD NOT FOUND '; 

* •- STRIKE ANY KEY TO CONTINUE' + CHR (7) 

WAIT 

ELSE 

***** VERIFY THAT NC ACTIVE CASES ARE ASSIGNED TO THIS COG 



IF COUNT > 


0 






3 


10,32 


SAY 


'ITEM MANAGER ' + IM 




3 


13, 25 


SAY 


'ACTIVE CASES EXIST FOR THIS 


CCG' 


3 


14, 15 


SAY 

+ 


'ALL ACTIVE CASES MUST BE '; 
'REASSIGNED TO ANOTHER COG' 




3 


15,21 


SAY 

+ 


'BEFORE DELETE ACTION CAN 3E 
'COMPLETED' 


t . 
* 


3 


18 , 27 


SAY 


'STRIKE ANY KEY TO CONTINUE' 
CHR (7) 


• 

* 


W AIT 







ELSE 



***** NOTIFY OPERATOR THAT RECORD PREVIOUSLY DELETED 

IF * 

3 23,13 SAY 'RECORD PREVIOUSLY DELETED - ' 
+ 'STRIKE ANY KEY TO CONTINUE' 

WAIT 

ELSE 
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3 10,32 SAY * ITEM MANAGER • + IM 
3 17,20 SAY *1 - DELETE THIS COG’; 

• + 1 2 - EXIT' 

STORE « » TO G:REPLY3 
3 19,40 GET G : REPLY 3 PICTURE *9* 

***** ACCEPT DELETE/EXIT SELECTION 

READ 

DO WHILE G : REPLY3 < M* .OR. G: REPLY3 > '2* 
3 23,3 2 SAY 'ENTER 1 - 2 ONLY' + CHR (7) 

3 19,4 0 GET G: REPLY3 
BEAD 
ENDEO 

IF G : REPL Y3 = *1' 

DELETE 
USE 
EN DIF 
END IF 
ENDI F 
ENDIF 
ENECASE 
USE 
END DC 

***** ENC OF PROGRAM 
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XXII. DATA BASE PACK MO DOLE 

*####*#**###*#** #3 $e afr $ 3$: jj e#* 



** ❖ £ 

** DATE: 15 JAN 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: DBPACK ** 

** MODULE PURPOSE: PACK THE DATA BASE AND REMOVE ** 

** RECORDS TAGGED FOR DELETION ** 

*# ❖* 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C : WHO ** 

** OUTPUTS: NONE ** 

** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** COMPRESSES THE DATA EASES BY REMOVING RECORDS ** 

** MARKED FOR DELETION. PRIOR TO EXECUTION, THE ** 

** USERS PASSWORD IS VERIFIED TO ENSURE THAT HE ** 

** IS AUTHORIZED TO PERFORM THE PACK. ** 

j|[ 3$C 3§C 

** SUPEFORDIN ATE MODULES: UTILMENU ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 






DISP 


LAY WARNING 


MESS AGE 




ERASE 
2 1,25 


SAY 


****** DATA BASE PACKING ****** 




a) 


3, 24 


SAY 


1 * 


************** 


* 


Qj 


4,24 


SAY 


• * 




* 


3 


5, 24 


SAY 


«* 


WARNING 


* 


a) 


6,24 


SAY 


•* 




* 


a) 


7, 24 


SAY 


• * 


THIS PROGRAM WILL PACK 


* 


a) 


8,24 


SAY 


1 * 


ALL DELETED CASES AND THEN 


* 


a 


9, 24 


SAY 


* * 


WILL RE-INDEX THE FILES 


4* 

*T' 


a 


10,24 


SAY 


«* 




* 


a 


11, 24 


SAY 


• * 


IF EXISTING FILES ARE 


* 


a 


12,24 


SAY 


1 * 


LARGE, THIS COULD TAKE 


❖ 


a 


13, 24 


SAY 


1 * 


HOURS 


* 


a 


14,24 


SAY 


«* 




♦ 


a 


15, 24 


SAY 


I * 




♦ 


a 

a 

a 


17.24 
18, 24 

19.24 
ORE ' 


SAY 

SAY 

SAY 


« 

« 

« 


ARE YOU SURE YOU WANT TO* 
CONTINUE' 

<ENTER Y OR N>' + CHR(7) 


ST 


' TO 


P 


: REP LY2 




a 


21, 40 


GET 


P: 


REPL Y2 





***** ACCEPT RESPONSE FROM USER 
READ 

DO WHILE ! ( P : REPLY 2)0* Y * .AND. ! (P : REPL Y 2) <> * N* 
2 23,32 SAY 'ENTER Y OR N ONLY* + CHR (7 
2 21,40 GET P.-REPLY2 PICTURE 'A* 

READ 

ENDDO 

2 23, 32 SAY ' ' 

2 17,40 SAY ' ' 

***** ACCEPT AND VERIFY PASSWORD PRIOR TO EXECUTION 
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If ?: REPLY 2 = ’ Y' 

a* 2 1,30 SAY 'ENTER YOUR PASSWORD * 

STORE • 1 TO P: PASSWORD 

SET CONS C IE OFF 

ACCEPT TC P: PAS SWORD 

SET CONS C IE ON 

IF P ‘.PASSWORD O' 1 

USE D.-TECHCODE INDEX D:TECH 
FIND SC: WHO 

IF PSWE = P: PASSWORD .AND. # <> 0 
***** DISPLAY PROCESSING MESSAGE 

ER ASE 

9 6,26 SAY ' OPEN DATA BASS BEING PURGED* 

S 8,32 SAY * OF CLOSED CASES’ 
a 16,29 SAY ****** DO NOT INTERRUPT ****** 
USE D: OPE HI INDEX D:OCASE1, DrONSN 
PACK 

USE D : OPS N2 INDEX D:OCASE2 
PACK 
ELSE 

a 23,18 SAY ’REQUEST ABORTED •; 

♦ STRIKE ANY KEY TO CONTINUE' 

W A II 
ENDIF 
ENDIF 
ENDIF 
USE 

RELEASE ALL IIKE P :* 

RETURN 

***** ENE OF PROGRAM 
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I XI II- ANALYST FILE UPDATE MODULE 



*********** *** * *** * * * ** **** ****************** ***#**#**#31 c* ** 

3|c ^e ** 

** DATE: 1 5 JAN 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: ANALYST ** 

** MODULE PURPOSE: TC ADD, UPDATE, DELETE, AND LIST ** 

** ANALYST INFORMATION ** 

** ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: NONE ** 

** OUTPUTS: NONE ** 

** ** 

** MODULE FROCESS IN G NARRATIVE DESCRIPTION: ** 

** PROVIDE CAPABILITY TC ADD NEW ANALYST CODES, ** 

** UPDATE EXISTING ANALYST RECORDS, DELETE ** 

** ANALYST RECORDS, OR DISPLAY ANALYST RECORDS. ** 

** NEW ANALYST IDS ARE VALIDATED TO ENSURE THAT ** 

** DUPLICATE RECORDS ARE NOT CREATED AND THAT NO ** 

** EMBEDDED BLANKS APPEAR IN THE ID. DELETED ** 

** ANALYST RECORDS MAY EE RECALLED BY UPDATING ** 

** TEE RECORD. PRIOR TO DELETION OF A RECORD, ** 

** THE ANALYST IS VERIFIED TO HAVE NO ACTIVE ** 

** CASES ASSIGNED. ** 

^ 3$C 5$c 

** SUPERORCIN ATE MODULES: UTILMENU ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 

** ** 
******************* ******** if if if *************** **** *******3 s ** 

STORE T TO A:CONTINUE 
DO WHILE A : CON T INU E 

***** DISPLAY OPTIONS AVAILABLE TO THE USER AND ACCEPT 
***** SELECTION 

ERASE 

a 6,25 SAY ' ***** ANALYST FILE UPDATE ****** 

S 9.28 SAY '1 - ADD ANALYST' 
a 10,28 SAY '2 - UPDATE ANALYST' 

a 11,28 SAY '3 - DELETE ANALYST' 

3 12,28 SAY '4 - LIST ANALYST' 

a 13,28 SAY '5 - RETURN TO UTILITY MENU' 

STORE ' • TO A: REPLY 

a 16,40 GET A :RE P L Y PICTURE '9' 

READ 

***** VALIDATE SELECTION 

DO WHILE A: R EPLY < '1' -OR. A : REPL Y > '5' 
a 23,32 SAY 'ENTER 1 - 5 ONLY' + CHR (7) 

a 16,40 GET A: REPLY PICTURE '9' 

READ 
ENDDO 
DC CASE 

***** IP QUIT REQUEST, RELEASE LOCAL MEMORY VARIABLES AND 
***** RETURN TO CALLING PROGRAM 

CASE A: REPLY = '5' 

RELEASE ALL IIKE A :* 
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*$* £ * 



RETURN 

IF AID NSW ANALYST SELECTED 
CASE AlREPLY = M 5 



ST CHS 
STORE 
STCRE 



• TO A; TSCHC0D2 

' TO A : P A SS WORD 

TO A: NAME 



i 



***** CLEAR SCREEN AND PROMPT FOR NEW ANALYST INFORMATION 



ERASE 

3 6,22 SAY 
a 1.22 SAY 
3 10,28 SAY 'ANALYST CODE 
READ 



5 DEED * 



'ENTER DATA FOR ANALYST BEING h 
• FOLLOW EACH ENTRY WITH A <CE>* 

• GET A:TECHCODE 



***** VALIDATE NO EF.EEDDED ELANKS 

DO WHILE $ (AiTECHCODE. 1 . 1) =• ' .OR.; 

$( A: TECHCCDE,2, 1) = * 1 .OR. $ ( A: TECHCO DE, 3, 1 ) ; 

= ' ' .OR. $ (AiTECHCODE, 4,1) =' • 

3 23,23 SAY 'ANALYST CODE CANNOT CONTAIN'; 

+ ' BLANKS' + CHR (7) 

3 10,45 GET A; T ECHCODE 
READ 
ENEDO 

3 23 2 3 S A Y ' ' 

STOR& ! (A : T FCHCODE ) TO AiTECHCODE 

***** VALIDATE FOR DUPLICATE USER ID 

USE D : T ECHCCDE INDEX D : TECH 
FIND SArTECECODE 
IF # <> 0 

3 22,14 SAY 'RECORD CURRENTLY EXISTS '; 

+ '- STRIKE ANY KEY TO CONTINUE' 

WAIT 
EL SE 

3 12,28 SAY 'ANALYST NAME ' GET A: NAME 
READ 

SET CONSOLE OFF 
STORE T TC A lENTERFS W 

***** PROMPT FOR USER PASSWORD AND VERIFICATION OF THE 
***** PASSWORD 

3 14,28 SAY 'PASSWORD • 

DO WHILE A ; ENT ERPS W 
3 14,44 SAY ' • 

ACCEPT TO A; PASSWORD 

STORE ' ' TO A: VERIFY 

3 16,28 SAY 'VERIFY PASSWORD ' 

ACCEPT TO A: VERIFY 

IF A ; PASS WOR D <> AiVERIFY 

3 23,5 SAY 'VERIFICATION PASSWORD DOES 

♦ 'NOT MATCH - REENTER PASSWORD' 

♦ ' AND REVERIFY' + CHR (7) 

STCRE • • TO A: PASSWORD 

ELSE 

STCRE F TC A lENTERPSW 
ENDIF 
ENDDC 

SET CONSCLE ON 

***** CREATE THE NEW ANALYST FECORD 
APPEND BLANK 

REPLACE TECHCODE WITH i (AiTECHCODE) , NAME WITH; 
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* $ 






ajc 3jc 



***** 

***** 



*** £ a§c 



## # # # 



! ( A: NAME) , PSWD WITH A: PASSWORD 
USE 
ENDIF 

IF UPDATE ANAIYST SELECTED 
CASE A: REPLY = '2' 

STCRE ' ' TO ArNAME 

STORE * * TO A: TECHCODE 

P EC MPT FOR AND ACCEPT ANALYST CODE 

ERASE 

3 6,15 SAY 'ENTER ANAIYST CODE FOR RECORD TO BE’: 
+ ' UPDATED ' GET A : TECHCODE 

READ 

STCRE ! (A.-TECHCODE) TO A: TECHCODE 

VALIDATE CODES EXISTENCE 

USE D : T ECHCODE INDEX D: TEC H 
FIND & A:TECHCODE 
IF # = 0 

3 22,17 SAY 'RECORD NOT FOUND '; 

♦ •- STRIKE ANY KEY TO CONTINUE' 

WAIT 

ELSE 

STORE T TC A : PR CCESS 

IF MARKED FOR DELETION, SEE IF RECORD SHOULD EE 
REACTIVATED 

IF * 

q TAPF » » TO A • RFPTY9 

3 18,22 SAY 'RECORD HAS BEEN MARKED FOR'; 

♦ ' DELETION' 

3 19,18 SAY 'DC YOU WANT THIS ANALYST •; 

♦ 'REACTIVATED <Y OR N> ' 

3 21 ,40 GET A :REPLY2 PICTURE 'A' 

READ 

DO WH HE A: R EPLY20* Y ' .AND. A :RE?LY2<>' II' 

3 22,31 SAY 'ENTER Y OR N ONLY' + CHR (7) 
3 21,40 GET A ; REPLY2 PICTURE 'A' 

READ 

ENDDO 

IF ! (A :REPLY 2) = 'Y' 

RECALL 

3 18,22 SAY ' • 

+ • • 

3 19,18 S AY ' • 

+ « • 

3 21,40 S AY ' ' 

ELSE 

STCEE F TC A:PROCESS 
END IF 
ENDIF 

PEGMPT FOR AND ACCEPT UPDATE INFORMATION 

DO WHILE A: PROCESS 

STORE NAME TO AlNAME 

3 8,15 SAY 'ENTER NEW NAME DATA ' GET NAME 
R EAD 

3 21,20 SAY '1 - POST UPDATE INFORMATION'; 

+ ' 2 - EXIT' 

STORE ' ' TO A: EEPLY 2 
3 23,40 GET A: REPLY2 PICTURE '9' 

ACCEPT UPDATE/EXIT OPTION SELECTION 
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*** * * 



*** # * 



* * 



$ $ 



***** 



READ 

DO WHILE A : R EPLY2 < *1’ .OR. A : R E P L Y 2 > *2* 

3 23,40 GET A : REPLY 2 PICTURE '9* 

READ 

ENDDO 

IF A: EEPLY2 = ' 1‘ 

REPLACE NAME WITH ! (NAME) 

ELSE 

REPLACE NAME WITH A : NAME 
ENDIF 

STORE F TO A :PROCESS 
ENDDO 
USE 
ENDIF 

IF DELETE OPTION SELECTED 
CASE AiREPLY = '3* 

STORE ' ' TO A: NAME 

STCRE ' • TO A: TECHCO DE 

PROMPT FOR AND ACCEPT ANALYST CODE 

ERASE 

£ 6,15 SAY 'ENTER ANALYST CODE FOR RECORD TC EE DELETED ' 
GET A :TECHCO EE 

READ 

STCRE ! (A: T ECHCODE ) TO A:T ECHCODE 
USE D : T ECHCODE INDEX D: TEC H 
FIND & A :T ECHCODE 
IF # = 0 

£ 22,17 SAY 'RECORD NOT FOUND - STRIKE ANY KEY'; 

+ ' TC CONTINUE' 



WAIT 

ELSE 



CHECK FOR ACTIVE RECORDS ASSIGNED 



IF A CTI V E>0 .OR 
a 9 , 2 1 S AY 

+ 

a 10,21 SAY 
+ 

a 11,21 SAY 
WAIT 
ELSE 



TRANSMITS .OR. RESPOND>0 
ACTIVE RECORDS EXIST FOR 
THIS ANALYST' 

ALL ACTIVE RECORDS MUST BE'; 
REASSIGNED ' 

PRIOR TO DELETION' 



INDICATE IF RECORD PREVIOUSLY DELETED 
IF ^ 

3 23,13 SAY 'RECORD PREVIOUSLY DELETED 



< — 



WAIT 

ELSE 



STRIKE ANY KEY TO CONTINUE' 



PROVIDE OPTION TO DELETE OR EXIT 

3 8.32 SAY 'ANALYST ' + NAME 

a 17,20 SAY '1 - DELETE THIS ANALYST ' 
+ ' 2 — EXIT ' 

STCEE ' ' TO A : REPL Y2 
a 23,40 GET A: REPLY2 PICTURE '9' 

READ 

DO WHILE A.-REPLY2 < '1* .OR. A : REPLY2 > 
£ 23,40 GET A: REPL Y2 PICTURE '9' 

READ 

ENDDO 

IF A: REPL Y2 = ' 1' 

DELETE 



2 * 
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2ND IF 
ENDIF 
ENDIF 
ENDIF 

IF LIST OPTION 

CASE A: REPLY = *4* 

USE D: TECHCCEE INDEX D : T EC H 

SET DELETED CN 

ERASE 

DISPLAY ALL FIELD TECHCODE, NAME OFF 
7 
7 
7 

? ' STRIKE ANY KEY TO CONTINUE’ 

SET DELETED CFF 
WAIT 
ENDCASE 
ENDDC 



***** ENC 0E PROGRAM 
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XXIV. PAS SWOR D FILE DP DATS MODULE 



44444444*4*4444* 44 4 4 * 444444 ##:* #*::(£ 4*4444444 * # 4 = 44444444444444 



** DATE: 1 5 JAN 1 984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: PASS ** 

** MODULE PURPOSE: PASSWORD UPDATING ** 

4:4c 4--* 

** MODUIE INTERFACE DEFINITION ** 

** INPUTS: NONE ** 

** OUTPUTS: NONE ** 

jjc 3^; 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ACCEPTS THE USER ID AS INPUT, REQUESTS THE ** 

** CURRENT PASSWORD, VALIDATES IT, AND REQUESTS ** 

** THE ENTRY AND VALIDATION OF THE NEW PASSWORD. ** 

** AN ILLEGAL USER ID OR AN ILLEGAL PASSWORD WILL ** 

** CAUSE THE PASSWORD UPDATE TO TERMINATE. ** 

4c# 44 

** SUPERORDINATE MODULES: UTILMENU ** 

** S UECRDI NATE KODUIES: NONE ** 

** AUTHOR: R. G. NICHOLS ** 

44 44 



4444444444444444 44 44 4 4 4c 4c 4c# ^ 44:4: 4c 4 4= 4444 44c 444 4c 4c 4c 44= 4c 4 4c44c4444444 

44444c CIEAR SCREEN AND PROMPT FOR USER ID 

ERASE 

STORE * ' TO P.-PASSWORD 

STORE ' ' TO P: TECHCODE 

a 6,21 SAY * 44 4 4 4 PASSWORD UPDATE PROCESSING ****** 
a 9,24 SAY 'ENTER DESIRED ANALYST CODE ' GET P:TECHCODE 

44444 ACCEPT AND VALIDATE USER ID 

READ 

STORE ! (P: T ECHCODE) TO P:TECHCODE 
USE D :TECHCCDE INDEX E:TECH 
FIND SP: TECHCODE 
IF # - 0 

a 22,14 SAY 'RECORD DOES NOT EXIST 

+ '- STRIKE ANY KEY TO CONTINUE ' +C HR (7) 

WAIT 

ELSE 

SET CONSOLE OFF 
SET EXACT ON 

44444 ACCEPT AND VALIDATE PASSWORD 

a 11,24 SAY 'ENTEE CURRENT PASSWORD ' 

ACCEPT TO P: PASSWORD 
IF P: PASSWORD = ' * 

SET CONSOLE ON 
REIEASE ALL LIKE P:* 

RETURN 

ENDIF 

STORE P : PAS S W ORD + * ' TO P:PASSWORD 

IF $ (P: PASSWORD, 1 .8) <> PSWD 

3 22,8 SAY 'INVALID PASSWORD FOR ANALYST ' +P : TECHCO DE ; 

+ ' - STRIKE ANY KEY TO CONTINUE' + CHR (7) 

WAIT 

ELSE 
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STORE T TO P : G E1P ASWD 



***** ACCEPT NEW PASSWORD AND VALIDATION OF NEW PASSWORD 

DC WHILE ?;GETPASWD 

3 13/2 4 SAY 'ENTER NEW PASSWORD 5 

ACCEPT TO P -.PASSWORD 

S 15,24 SAY 'VERIFY NEK PASSWORD » 

ACCEPT TO P: VERIFY PW 

IF P: PASSWORD <> P:VERIFYPW 

a 23,5 SAY 'VERIFICATION PASSWORD DOES NOT MATCH'; 

+ ' - REENTER PASSWORD AND REVERIFY' + CHR(7) 

ELSE 

STORE F 1C ? : GE 1PASWD 
ENDIF 
ENDDO 

REPLACE PS WD WITH PrPASSWORD 
USE 
ENDIF 

SET EXACT OFF 
SET CC NS CLE ON 
ENDIF 

***** RELEASE LOCAL MEMORY VARIABLES AND RETURN TO 
***** CALLING PROGRAM 

RELEASE ALL LIKE P:* 

RETURN 

***** END CF PROGRAM 
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XXV. DATA BASS EE- INDEX MODULE 



************** ******************************* **** *££ 4 #**^*:* 
^cajc ^c^c 

** DATE: 20 JANUARY 1984 ** 

** VERSION: 1.0 ** 

** MODULE NAME: UTILNDX ** 

** MODULE PURPOSE: RE-INDEX ALL INDEX FILES ** 

** MODULE INTERFACE EEFINI TION ** 

** INPUTS: C : WHO , C: JULIAN ** 

** OUTPUTS: NONE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

j|»^5 

** A UTILILIT Y FOR THE SUPERVISOR TO RECONSTITUTE ** 

** THE INDEX FILES WHEN THE SYSTEM DESTROYS THE ** 

** CURRENT INDEXES. AFTER ACCEPTANCE OF THE ** 

** SUPERVISOR'S CHOICE TO PROCEED, EACH INDEX FILE ** 

** IS DELETED AND THEN REBUILT USING THE DATA IN ** 

** ALL OF THE DATABASE FILES. THIS TAKES A LONG ** 

** TIME TO PROCESS, AND CAN BE ACCOMPLISHED ONLY ** 

** WHEN IT IS THE ONLY PROGRAM RUNNING ON THE ** 

** QDR SYSTEM. ** 

ajc ajc 3$e3$c 

** SUPERORDINATE MODULES: UTILMENU ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: J. G. BOYNTON ** 

** 

* 3fc ** *************************************** * * 

***** DELETE CURRENT INDICES 

DELETE FILE D.-OCASE1.NDX 
DELETE FILE D.'ONSN.NDX 
DELETE FILE D:OCASE2.NDX 
DELETE FILE D:CCASE1.NDX 
DELETE FILE D:CNSN.NDX 
DELETE FILE D:CCASE2.NDX 

***** BEGIN REINDEX OF FILES 

USE DrOPENI 

INDEX ON CASE TO DtOCASEl 
INDEX ON NS N TO D:ONSN 

USE D:OPEN2 

INDEX ON CASE TO D:OCASE2 
USE D : CLOSE 1 

INDEX ON CASE TO D:CCASE1 
INDEX ON NSN TO D:CNSN 

USE D : CLCSE2 

INDEX ON CASE TO D:CCASE2 

USE D : TECHCCDE 

INDEX ON TECHCODE TO D: TECH 

USE D : COG 

INDEX ON COG TO D:COGS 

USE D : WHEREEIS 

INDEX ON CODE TO D : DISCODE 
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USE C : A DERE SS 
INDEX CK IK TO D :IM 

RETURN 

***** ENI: OF PROGRAM 
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1111 . OPEN CASS REPORT 



************************************************* ********** 



** ** 

** DATE: 5 JANUARY 1P84 ** 

** VERSION: 1.0 ** 

** MCDUIE NAME: OCASERPT ** 

** MCDUIE PURPOSE: PROVIDE ANALYST WITH LISTING C? ALL ** 

** CF HIS OPEN CASES IN THE DATA BASE. ** 

** MODULE INTERFACE DEFINITION ** 

** INPUTS: C:WHO, C : JUL IAN ** 

** OUTPUTS: NONE ** 

** MODULE PROCESSING NARRATIVE DESCRIPTION: ** 

** ** 

** ALLOWS THE ANALYST TO CHOOSE BETWEEN RECEIVING ** 



** A LIST OF HIS CURRENTLY OPEN CASES OR TO RETURN ** 

** TO THE MAIN PROCESSING MENU. THE PROGRAM DOES A ** 

** SEQUENTIAL SEARCH OF THE DATA BASE TO IDENTIFY ** 

** THE APPROPRIATE CASES , AND LISTS THEM TO EITHER ** 

** THE SCREEN OR THE PRINTER. LIST SHOULD NOT EE ** 



** SENT TO THE PRINTER IE ANYONE ELSE WILL BE ** 

** USING IT BEFORE THE PROCESS IS COMPLETED. ** 

$$ ## 

** S UPEROREIN AT E MODULES: MSNU1 ** 

** SUBORDINATE MODULES: NONE ** 

** AUTHOR: J.G. BOYNTON ** 

** ** 



********************************************* ************ ** 
ERASE 

STORE ' ' TO V : PRINT 

TEXT 



YOU MAY RECEIVE THE REPORT ON THE SCREEN OP. 
AT THE PRINTER 

1 - SCREEN 

2 - PRINTER 

3 - EXIT 



< ENTER YOUR CHOICE > 

ENDTEXT 

2 22,35 SAY' ' GET V :PRINT 
READ 

IF V ‘.PRINT = • 1 • 

ERASE 

USE D : CPE N 1 

REPORT FORM OPENCASE FOR WHO = C:WHO 
? 'PRESS ANY KEY TO CONTINUE' 

WAIT 

ELS E 

IF V : PRINT = ' 2 ' 

ERASE 
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USE D: OPEN 1 
SET FEINT C N 

REPORT FORM OPSNCASE FOR WHO = C:WHO 
EJECT 

SET PRINT OFF 

? "PRESS ANY KEY TO CONTINUE’ 

WAIT 

ENDIF 

ENDIF 

RELEASE V:PRINT 
RETURN 

***** END CF PROGRAM 
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